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In the 1960's the Navy saw a proliferation of various 
types of computers and found itself faced with enormous and 
expensive computer procurement and support problems. Thus, 
in 1968 the Naval Air Systems Command undertook the design 
and development of a modular digital computer system 
(Advanced Avionic Digital Computer) for future naval air 
computing requirements. The impetus for the project was 
cost reduction through the application of standardization 
and modularity. By using standardized modular hardware and 
software components, the proposed AADC system could be 
configured as a simple minicomputer, a complex  multi- 
processor system, or anything in between. In 1972, the 
Department of the Navy recognized the potential of this 
computer and expanded its role from the Advanced Avionic 
Digital Computer to the All Application Digital Computer 
(AADC). The AADC system, which is still in the advanced 
development stage, is intended to satisfy the entire 
spectrum of Naval Airborne and general purpose computing 


requirements for the 1978-1990 time period [Refs. 1 and 2]. 


A.  MODULAR OPERATING SYSTEMS 


The advent of complex,  multipurpose computer systems 
necessitated the development of an operating system which 
guided a computer in the performance of its tasks and 
assisted the applications programs with certain supporting 
functions. Shaw [ Ref. 3] defined an operating system as 
"an organized collection of (systems) programs that acts as 
an interface between machine hardware and users, providing 
users with a set of facilities to simplify the design, 
coding, debugging, and maintenance of programs; and, at the 
Same time, ccntrolling the allocation of resources to assure 


efficient operation." The complexity of these operating 
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Systems varied according to the size and purpose cf the 
computer installation; i.e., from single CPU monoprogrammed 
to multiprocessor,  multiprogrammed systems. Most of the 
existing third generation computer operating systems were 
designed as highly interdependent, complex systems. Once 
these systems had been inplemented, any Changes, 
improvements, or corrections were difficult and costly. 
Benson [ Ref. 4] described some of the consequences of these 
complex systems as: 

Instead of the programming task becoming easier with 
more sophisticated machines, it has become increasingly 
more difficult. Large and intricate computer programs are 
being constructed and as a direct consequence the task of 
demonstrating that the programs are correct, that is they 
are producing in ail cases the correct output for the 
input data, iS nearly inpossible. | 

Another seen of increased program Conplexity is 
the increased cost of design and implementation. Although 


hardware costs are generally decreasing, the cost of 
software is increasing dramatically... 


zn an attempt to solve the above two problems the 
technigue of "structured programming" has been proposed. 
The primary advantages of the Modular Design Method 
("Structured Programming") have been increased system 
reliability, reduced complexity, and ease of modification. 
Consequently, the software  developnent and support costs 


have been reduced. 


B. RESEARCH GOALS 


The goals of this research were to develop a 
modularized, general purpose operating system for the  AADC, 
and to specify the modules and module interfaces in a 
functional notation. D. L. Parnas [Ref. 5] described the 
criteria to be used for module specification as: 

1. The specification must provide to the intended user 
all the information that he will need to use the program 
correctly, and nothing more. 

2. The specification must UE to the implementer all 
the information about the intended use that, he needs to 
complete the program, and no additional informaticn; in 


particular, no inforuation about the structure of the 
caliing program Should be conveyed. 
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3. The specification must be sufficiently formal that it 


can conceivabiy be machine tested for sou ne] 

compieteness (in the sense of pee eed the cutcome of a í 
possible uses) and other desirable properties of a 
Specification. 


4. Che specification should discuss the program in the 
terms normally used by user and implementer alike rather 
than scme other area of discourse. 


These goals were achieved by employing the modular design 
concept in a "top down" approach to design and 
isplementation. To attain these objectives, the research 


was organized as follows: 
1. Define the design philosophy and heirarchy, 
2. Define preliminary specifications for each ee 
3. Design the modules, | 
4. Implement the modules, 
5. Test hosen 


6. Define formal specifications for each module. 
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By applying the concept of modularity and the "decision 
hiding" criteria, the operating system has been defined as a 
set of hierarchical modules which have facilitated the "top 
down" design and implementation. As presented in the 
following sections of this chapter, these technigues have 
provided the means of expressing a large system as a logical 


ordering of less complex components. 


A. MODULAR DESIGN CONCEPT 


The modular design concept has been described by 
Gouthier and Pont [Ref. 6] as: 

A well defined segmentaticn of the project effort 
ensuzes system modularity. Each task forms a separate, 
distinct program, moaule. At implementation time each 
module and its inputs and,outputs are well defined; there 
is no confusion in the intended, interface with other 
system modules. At checkout time the integrity cf tae 
module is tested independently; there are few scheduling 
problems in synchronizing the completion of several tasks 
before, checkout can begin. Finaliy, the systen ,ıs 
Maintained in modular fashion; ‚systen errors and dificien- 
cies can be traced to Specific system modules, thus 
limiting the sccpe ot detailed error searching. 

. In recent years, there have been a number of proponents 
(Dijkstra, Parnas,  Brinch Hansen, to name a few) for a 
modular design approach for developing large programs. The 
basic justification for this approach has been to allcw the 
design cf a system to proceed in a hierarchical way. By 
treating the system as a set of basic components, specifying 
the reguirements/functions of each and then treating each 
component aS a system (module), the original system has been 
divided into a set of independent modules. Consequently, 
the hierarchical organization in the operating system model 
has simplified module specification, implementation and 


testing. 
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Many operating systems in past years have been designed 
with inadequate methods of program construction. Although 
specific requirements have been given, the design has 
proceeded with the impetus on efficient resource utilization 
at the expense of long term systems reliability and 
maintainability. This conventional approach has restricted 
the versatility of the computer system and thereby limited 
the | applications programmer's ability to design more 
advanced programs requiring extended computer capabilities. 
Additionally, any attempt to expand or modify the existing 
operating system to provide more services had been difficult 
because of the rigid set of Specifications in its basic 
design [Refs. 7 and 8]. D. L. Parnas {Ref. 9] has proposed 
a soluticn to the problem as: | 

The basic justification for the design methodology 
presented an old precept from engineering design: `a 
probiem must be defined before it is Solved. The result 
was a nmethodology which laid great stress on specifying 
the behavior of a system or a component in a system Lberore 
producing the design... 

fhe premise that we should proceed by specifying the 
behavior cf a system before designing its components 
implies that we can no longer look at an Operating system 
as dan item to be placed on a previously designed piece of 
hardware, Tne actual c n should begin with a 
Specification, of, the overall behavior of the hardware- 
softdare ccmbination. It continues by узыш the systen 
into components and un in turn, are designed with 
little cr no attention to he e oR of what will be 
hardware and what will be software until very late in tne 
design. 

The principle goals of the Modular Design Concept as appiied 
to the develcpment of an AADC operating system have been to 
define the overali system requirements and to satisfy these 
requirements by designing and implementing independent 


modules with well-defined interfaces. 


B. THE DECISION HIDING CRITERIA 


Unlike the conventional modular design which had defined 
Operating system modules according to function, the decision 
hiding technique has been used to modularize a large system 


in a different way. Decision hiding has been proposed as a 
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means of decomposing a large system into modules based on 
isolating the decisions made at each stage of the design. 
Initially, a set of basic decisions has been specified to 
define the operating system (1.е., multiprocessor, 
mokoprogrammed, shared resources,  etc.). Once decision 
hiding has been applied to obtain a module for a specific 
decision, the technique may be rerapplied to define 


decisions for submodules. 


Modularization by this technique has provided "а 
nechanisu for improving the flexibility and 
comprehensibility of a system while allowing the shortening 
of its development time" [Ref. 10]. For example, in the 
design of a large system program by the conventional method, 
the system's data structures; i.e., control blocks, queues, 
etc., have been accessed directly by several modules. Since 
the data structures have served as intefface variables 
between Certain modules, a change in the format has 
necessitated a corresponding change in all the modules using 
these structures. The decision hiding criteria added tne 
requirement that each data structure be defined separately 
and managed by a specific module. Consequently, 
modification of a data structure format has required a 
change to only one module, the data structure manageuent 


module, since the interfaces have been defined explicitly. 


C. THE HIERARCHICAL STRUCTURE 


The modular design concept using decision hiding has 
resulted in the deconposition of the operating system into a 
set of distinct modules. This technique has enhanced system 
reliability and comprehensibility, increased flexibility and 
made testing easier. Further improvements in these areas 
have been achieved by ordering the modules into a 
hierarchical structure in which the specific relations 


between the modules have been explicitly defined. 
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Since one module frequently has provided services to 
several modules, the system hierarchy has been established 
by identifying the use or dependency relationships. For 
example, those modules which identify the basic functions of 
the operating system have been assigned to the top level - 
level N. Each subsequent level (N—1,N-2,...,1) has been 
formed as a collection of those modules that provide the 


services required in the preceeding level. 


Two benefits have been gained from the establishment of 
a hierarchy. Firstly, the upper levels have been simplified 
because they use the lower levels aS primitive operations, 
Secondiy, the iower levels шау be used as a subsystem 
because they do not require the services of the modules in 
the higher levels. Therefore, the technique of hierarchical 
structuring combined with the previously described design 
techniques have established a means of developing a 


well-defined operating system. 


D. MODULE INTERFACE DECISIONS 


The three design methodologies derine the technique used 
in designing a modular operating system. As the functions 
and requirements were identified and assigned to separate 
modules, the specification of the module interfaces with the 
rest of the system was necessary to permit independent 
module development. These interface decisions define the 
conventions for passing information between modules; and, in 
some instances, they specify the data format and type. Once 
the module interfaces were defined, system design proceeded 
with strict compliance to these constraints. In this 
Manner, system comprehensibility was enhanced and, although 
flexibility appears to be limited, the algorithm developed 
for each module may be readily changed provided the 
interface requirements are not violated. Since the 


operating system will be composed of functionally related 
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modules, the module interface decisions specifically 
identify the logical flow of information between modules and 
the set cf constraints to be observed in developing then. 
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III.  PRELIZINARY DESIGN SPECIFICATIONS 





The essential requirement in preliminary design specifi- 
cation has been defining thè purpose for which the AADC 
operating system was being designed and then to determine 
the set of basic functions which satisfy this purpose. Since 
the AADC operating system was to be designed as a multi- 
purpose, modular system which served as an interface between 
user programs and hardware, the specifications have been 
determined by considering the requirements of an operating 
system in a multiprogramming, multiprocessing environment. 
The decision to design the operating system in this environ- 
ment was predicated on the fact that monoprogranmed and 
single processor, multiprogrammed systems could be obtained 
as logical subsets of the design by restricting the number 
of user jobs in tne system and number of proeessors, 


respectively. 


The first task in developing the preliminary design 
Specifications was to identify the services to be provided 
to tke user and the essential managerial functions to be 
performed by the operating system given the constraints of 
multiprogramming and multiprocessing. Firstly, the operating 
Syster had tc perform monitoring operations to supervise the 
activity in the system and to detect and rectify, where 
possitle, software or hardware errors. Secondly, a means for 
managing resources, such as processors, files, input/cutput 
devices, space, etc., had to be provided for more efficient 
resource utilization. Thirdly, a technique for passing 
information ktetween separate programs (system or user jobs) 
had tc be designed; and finally, the operating system had to 
provice a simple method for controlling input and  cutput 
operations, a means by which a user may enter his program 


into the system and obtain the requested output. 
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In addition to these functions and services, several 
requirements have been specified in the AALC Develcpment 
Project which have a direct effect on the design and imple- 
mentation of the operating system. In particular, the opera- 
ting system will be executable on one processor at any point 
in time; i.e., a dedicated system processor. Secondly, the 
user has been given the ability to cause the creaticn of 
separate processes! that may execute independently from the 
parent process. Another requirement has been the 
implementaticn of paging techniques; however, the page fault 
recognition and page replacement algorithms have been 


scheduled for implementation in hardware [ Refs. 2 and 11]. 


Finally, a standardized, simple communications technique 
has been specified to facilitate interprocess communication 
and process to hardware communication. In current operating 
systems, the communications facilities have varied according 
to the type of communication; i.e., user processes pass 
informaticn to system processes via a program interrupt 
facility, system processeS communicate with other systen 
processes via Shared tables and lock/unlock mechanisms, etc. 
Wecker [Ref. 312] has described the problems resulting from 
these implementations as: 

| By building systeus with all these varied communica- 

tion Laciiities, we tend to overcomplicate and overkurden 
the operating system and the user programs. This non- 
uniformity of communication techniques within a system 
leaus to problems of syncaronization and scheduling aid to 
Systems where the overall design and structure  Lkecome 
‘obscure and maintenance becomes difficult... 

It would, tnerefore, be very desirable to ‚build an 
operating system where data and. techniques are 
simplified an which will execute  eificiently on, our 
Ор гип OI multiple processor hardware configurations. 
T 


ese goals can be achieved by having all processes in the 
System communicate via explicit data exchanges. 


en — ee ep 


1 A process is a task or algorithm which competes for 
resources ard can be characterized by its state and 
environment. 
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The communications technique utilized in this operating 
system has been designed to pass information through the use 
of message semaphores and buffers [Refs. 3, 8, 12, and 13]. 
The interprocess communication requirement and the function- 
al requirements identified in the preceeding paragraphs are 
summarized in Table I. 


TABLE I BASIC FUNCTIONAL REQUIREMENTS FOR THE 
AADC OPERATING SYSTEM 


FUNCTION yo  .DEFINIZION 


— — ect A diia A A AX — m s eee 





Monitaring Supervise the activity in the 
System; Detect and rectify hardware 
and software errors, 


Resource Allocation Supervise the allocation of 
reSources to competing system and 
user processes. 


Input/Output Control Method for users to enter programs 
| into the system and obtain output. 


Conmunication Technique for passing information 


Requirements from process to process, process to 
hardware, and in operator-system 
communications. 

Multiprogramning. Scheduling technique for optirizing 

and Multiprocessing system utilization while providing 


processor execution time eguitably. 


Dedicated Processor Operating system executable on only 
one processor at any point in time. 


User Created Processes Method by which a user process can 
create independent/dependent user 
processes. 

Paging (To be implemented in hardware) 


Having identified the basic functional requirements of 
the operating systema, the preliminary design specifications 


were determined in the manner described in the preceeding 
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chapter. To facilitate design and hierarchical ordering, 
the uodules were divided into two distinct classes 
(processes and primitives). Process modules were designed 
to perform specific functions while competing for system 
resources; whereas the primitive modules were designed to 
perform the common services required by user and systen 
processes. In particular, primitives were used to provide 
the uechanisn for resource allocation and process 


communication, and to protect critical sections. 


The operating system processes have been assigned to 
level 2, whereas the primitives which prcvide services to 
the processes were assigned to level 1. Within each of these 
levels, the modules have been ordered hierarchically depen- 
ding on the services they provided to other mcdules cn the 
sane level. For example, a system monitor module required 
the services of an input/output control module to receive 
instructions from or pass information to the computer svstem 
operator. In this case, the monitor would be assigned to 
level 2.2 and the I/O controller to level 2,1. Hence, any 
module on level 2 nay utilize the services provided by 
modules on level 1; however within the levels, services may 
be obtained fron modules on an adjacent, lower level. The 
remaining sections of this chapter are concerned with-the 
preliminary design specifications of the operating system 
modules. The Fundamental Algorithm Technigue used by Knuth 
[Ref. 14) was adopted to define the program logic of the 
processes and primitives described in the following 


sections. 


mee OPERATING SYSTEM PROCESSES - LEVEL 2 


The first stage in the preliminary design specifications 
for the operating system processes was to determine which of 
the basic runctions could best be performed by a process and 


then to determine wnich processes provided services to other 
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processes. In particular, the monitoring function and the 
input/output control functions were selected to be performed 
by processes. In designing the modules to satisfy these 
requirements and to provide the capability for 
nultiprogramsing-multiprocessing, nine (9) processes were 
specified. The need for additional processes to serve as 
interfaces between selected hardware devices (i.e., line 
printers, card readers, consoles, disk drives, etc.) and 
System processes was also considered. Figure 1 is the 


hierarchical ordering of the operating system processes. 


In any multi-purpose operating system, there must be 
an internal method for the handling of user, systems and 
hardware generated error conditions. Corrective action may 
be accomplished by canceling the ill-behaved user prccess, 
terminating and then replacing a system process, or 
notifying the system operator cf the problem and waiting for 
instructions. In any case, the action to be performed was 
determined by the designers of the computer system 
(including both hardware and software) with particular 


emphasis cn the precise hardware configuraticn. 


Since the physical machine was unspecified, a sodule 
to perform these functions was designed to simulate the 
monitoring function; however the error correction  rcutine 
has been left undefined. Once the specific actions are 
identified, the appropriate code may be inserted (prcvided 
the interface requirements are not violated). The following 


algorithm describes the basic logic of the Error Handler: 


1.1  fHait for message] Request (error 
nessage). 


Ted [Interpret message] Decode the error 
as e and determine the action to 
e taken. 


173 Recoverable] If correctable Then 


ake predetermined action Otherwise 
Go to step 1.5. 
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1.4 [Inform operator] Release (operator 
message) and Go to step 1.1. (Notify 
the operator of the error and action 
taken.) 


1.5 in Release (operator 
message). (Notify the, operator of 
the error and reguest instructions.) 

1.6 (Wait for answer] Reguest(answer). 

1.7 {Answer received] Perform the action 
Specified and Go to step 1.1 


ALGORITHM 1 ERRGR HANDLER 


The "wait for an error condition", "wait for 
answer", and "notify the operator" were performed in this 
implementation througn the use of the message passing 
primitives (Request ana Release) to be defined later. Since 
information was being exchanged with the operator, the Error 
Handler needed the use of an 1/0 device(s). To hide the 
actual manner in which this was performed and to simplify 
the I/O controllers, this service was assigned to an 


independent uodule -- the Operator System Communicator. 


2. Operator_System Communicator - Level 2.5 


O AO, ee ee ee eee ee ee A, «UT, CT, AT, eg ee A A A. s ЭШЕ» 


In addition to providing services to the Error 
Handler, the Operator System Communicator was designed to 
assist the computer operator in controlling the system. The 
operator needed the ability to 'start up! a specific job; to 
add, delete or modify the system configuration (start up a 
new disk drive, delete a card reader, or modify a disk 
pack) ; or to obtain information concerning the status of 
queues, availibility of core, etc. The Operator Systen 
Commuricator was implemented to provide a centralized 
contral point and a uniform way of obtaining systen 
information or giving orders to the system. AS in the case 
of the Error Handler, the full design of this module 
depended upon knowledge of the possible configuration and 
the repertoire of  "operator-system" instructions. All 


messages are passed via the Request and Release primitives. 
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2.1. Wait for message] Request (operator 


7/0) - 


2-2 [Interpret a Determine who 
sent the message and the acticn to 
be taken. 


2.3 [From , operator] Perform action 
Specified, and Go to step 2.5. 


2.4 [From secu Perform the action 
Specified. (1.e., pass the message 
to the operator, etc.). 

2.5 [Answer requested] If (answer 


requested) Then Release (answer) . Go 
to step 2.1. 


ALGORITHM 2 OPERATOR SYSTEM COMMUNICATOR 


3. Input/Output Controller - Level 2.4 


Since there is generally a great disparity between 
the rate of information transfer among input devices and 
main storage access time, the concept of spocling has been 
adopted to assist the systen in satisfying the 
nultiprogramming functional requirement. In particular, 
spooling operations utilize the services of file management 
and employ the concept o£ buffering (a buffer is a storage 
area used to give a better match between processor speeds 
and I/O device speeds) in accomplishing its function. 
Watson [Ref. 15] describes the I/O problem as follows: 

The I/O system must cope with a wide variety of 
devices and therefore is _guite complicated at detailed 
Шоссе Of design. This Complication arises because ci tne 
large aumber of special situations which can arise in 
handling communication with each type of device. To create 
a design which is as conceptually Simple as possible, the 
designer should probably isolate as many device-dependent 
Characteristics as ossınle in separate routines (often 
called device drivers) and then interface these routines 
With mcre general routines which are device-independent. 


‚One can recognize four major functions in handling I/0 
devices: 


1 Euffering of, information transmitted between 1/0 
devices, auxiliary storage and memory 


2 Proper oe NG of interrupts. or other device to 
processor Signals and their interface to the rest of 
the system 


3 Reserving and allocating I/O resources 
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4 Protection of the resources dedicated to one user or 
process from interference by another. 


The Input Controller was designed to "spool" user 
jobs into a file on some auxiliary device and to enter the 
job control language (JCL) and various administrative data 
into a jcb queue. The Initiator can then retrieve this data 
and create the user process. To avoid the possibility of 
"deadlocks" for file space (i.e., the Input Controller gets 
blocked indefinitely for space to spool the incoming data), 
the responsibility for requesting file space was assigned to 
the input device interface processes. Hence, the Input 
Controller, which is device independent, receives JCL 
information, file information, etc. fron the various 
interface processes, stores this information in the job 


queue and sends a message to the Initiator. 


3.1 {Wait for a message] Request 
|» (output). 


3-2 [Interpret message] Determine the 
action required. 


3.3 Then If (JCL or file information) 
hen store the data and Go to step 


3.4 Input for Operator System 
P a SL) If (Operator input) 
Then nelease(Operator 21/0) and GO to 
step 3.1. 

3.9 [EOF] If (End a File (EOF)] Then 


enter data the job queue, 
Release (New Job] ee the initiator), 
and Go to step 

3.6 (Eron Op Operator System, Communicator } 
f Ton iguration Modification) Then 
take an SEC action and Go to 
step 3 


ALGORITHM 3 INPUT CONTROLLER 
In item 3.6 of the above algorithn, the message 
received by the Input Controller was from the Operator 


System Communicator. The decision was made to have the Input 


Contrclier create the interface processes for the input 
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devices since it had to maintain separate files tc store 
incoming data from each device. Thus, if the operator 
entered the command to start up ancther card reader, the 
Communicator would instruct the Input Controller to do it, 
wait for an answer that it had been done, and then inform 


the operator. 


The Output Controller was designed to provide a 
uniform, generalized technique for handling the various 
reguested output operations. In keeping the design simple 
and device independent, the Controller was implemented to 
utilize the services of the.device interface processes and 
the File Manager. In particular, the Output Contrcller, 
upon receiving a request to output a message, assigned a 
device and then passeä the information to the device 
interface process. In the case of printing files, the data 
was passed from the File Manager via the Controller tc the 
preassigned (maybe user or system specified) interface 
process. In the event a device was not availakle, the 


Controller queued the output request. 


4.1 {Wait for message] Request (cutput 
message). 


4.2 [Interpret message] Determine the 


action to be taken. : 
4.3 [Operator System | | Communicator 

message] Take specified action and 

Go to step 4.1 1.0., Release 


. . ( 
message to the operator, add a new 
device, etc.). 


4.84 File Manager message] Release (full 
uffer) and Go to step 4.1. pass 
the information to be output to the 
appropriate device interface 


process). 


4.5 [Terminator message] TE (Device 
available Then get data frcm print 
queue, take action to output the 
job, and Go, to step H.1; Otherwise 
duce the print job and Go to step 


ALGORITHM 4 OUTPUT CONTROLLER 
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4. Initiator - Level 2.4 


a Re 








One of the principle functions of the operating 
system was to prepare a user program for execution. Frcm the 
JCL and file information stored in the job queue, the system 
determined and then allocated the initial resources required 
by the job. In so doing, the user job was transformed into a 
process which was assigned an internal identification, given 
resources or access to them, and entered on the "ready 
active" queue (a list of processes waiting for a processor). 
Furthermore, a system table [Process Control Block  (PCB)] 
containing management information about the jok was 
established for use by the operating system as the process 
proceeded through execution. The Initiator was designed and 


irplemented to prepare the user program for execution. 


5.1 [Get internal name] Request (tna) 
(Wait for space Or a PCR if 
necessary). 


372 Get a job from the job queue] 
equest (Newjob). 

5s 3 [Interpret  JCL] Determine which 
resources abe required by the 
process and verify that this process 
may have access. 

5.4 Obtain required resources] 
ror (each required resource) Do 
reguest (resource). 


5.5 [Create Process Control Block] 
Call Create PCB. 


5.6 [Activate the process] Call Activate 
(new process). 


5.7 [Free job gueue space] Release (Job 
queue). 


5-8 [Finished] Go to step 5.1. 


ALGORITHM 5 INITIATOR 


When a process completes execution (either normally 
or abrormally), the various resources created by the process 


or assigned to it were destroyed or deallocated, 
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respectively. Additionally, any output requirements were 
satisfied, including operator notification if necessary. 
Since in the design of the operating system, both system and 
user processes were given the ability to create subordinate 
processes, the termination of the parent process necessita- 
ted the termination of its progeny (dependent processes). 
The Terminator was designed to perform these functions when 


notified by the system or user to terminate a process. 


6.1 Wait for termination message } 
equest (termination message). 


6.2 RE message] If (Invalid) Then 
EE a message) and Go, to 
step 6 


6.3 [Compile list of processes] Insert 
rocess to be terminated and all 
` ¿Z processes on the list and 
n (number of items in the 
Mc). 


6.4 [Select process- for termination] 
Term Process <~ list(i). 


6.5 (Print output file] Release (Output). 


6,6 [Free all resources] Deallocate 
resources. 

6.7 [Free Internal Name] Release(job 
name). 

6.8 [Finished] i «- i-1; If i= 0 Then 


Se to step E Otherwise Go to step 


ALGOKITHH 6 TERMINATOR 


6. '` File Management - Level 


— —— m TIT = 


«3 and 2,2 


The design and subsequent implementation of file 
management techniques simplified the development cf a 
multiprogramming operating system. Serving as an interface 
between processes and the auxiliary storage devices (disks, 
drums, tape drives), the File Manager was designed to 
perform such functions as controlling access to files, 
creating and destroying files, opening and closing files, 
and providing backup and restoration services, if possible. 


Additionally, characteristics of the file, i.e., record 
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size, data storage methods, etc., and of the device were 


hidden fron 


dependencies. 


In 


from separate processes for access to 


the File 
permitted. 


nultiprogramming 


Since the reguests may be 


the Manager to eliminate file type and device 


for read access, 


Systems, simultaneous reguests 
a shared file required 


Manager to determine if multiple access can be 


Write 


access, cr both, the File Manager was implemented to satisfy 


multiple read access 


reguests but restricted write access to 


only cne process at a time. As in the case of the Input and 


Output ccntrollers, the File Manager was assigned the 


additional 


the device interface 


function 


writing of data. 


ALGORITHM 7 FILE MANAGER 


Kait for a message] Request (File 
peration). 


Be Ir nessage] Determine action 
o be taken, 


[Configuration modification] Ef 
(configuration modification) Then 
perform_reyuired action and Go to 
step 7.1. (From Operator System 
Communicator - add, delete or modify 
the status of a storage device). 


(New file added] If (new file) Then 
update master list of known files 
and Go to step 7.1. (Fron the File 
Space manager ~ a new rile has been 


-added). 


[Directory . information] If 
go rec ory information) Then update 
irectory and release avallable 
space to the File Space Manager as 
necessary and Go to step 7.1. (From 
an Interface Process when the 
Storage device is added to the 
System). 


[Operation on a file] If (file 
DE er ol Then [If (access allowed) 
Then perform operation Otherwise 
Release (Error message) J Go to step 
7.1. (A process has requested a file 
read, write, open, close, etc.  Tne 
access check can include deadlock 
Checks as necessary). 
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of creating, destroying and supervising 


processes which perform the reading and 








When a process requests access to a file, the File 
Manager tested for potential deadlock situations (a deadlock 
occurs when process 1 had been given write access tc file A, 
process 2 had been given write access to file B, and then 
processes 1 and 2 request access to files B and A, respec- 
tively, and consequently, become blocked indefinitely). 
Many solutions have been presented to solve the deadlock 
problen, some of which include: requesting and then 
assigniny all resources at the time of process creation, the 
concept cf "sacrificing", and more complex schemes [Refs. 16 
and 17]. The concept of "sacrificing" was implemented in 
this deSign. In particular, once a process requested a 
Write access which was not immediately serviceable or had 
Write access and then requested read access which was not 
serviceable, all file resources owned by this process kecane 
preemptatle. In this scheme, the user must be careful to 
reguest file access at points where preemption does not 


prohibit recovery. 


In creating a file, available storage Space was 
found, tagged as being non-available and reserved for access 
by the prccess requesting a new file. To prevent the File 
Manager from being blocked indefinitely while attempting to 
Service a request for space allocation, the responsikility 
for this function has been assigned to a separate process, 
File Space Manager. Thus, processes desiring a new file made 


their request to this process rather than the File Manager. 


The File Space Manager was designed to manage the 
Space availabie in auxiliary storage and to create new files 
upon request by a process. The allocation-deallocation and 
accounting functions were. implemented as a coordinated 
operation with the File Manager. In particular, the File 
Manager was assigned the responsibilty to determine the 


change in available space as files were destroyed or devices 
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were added, removed or modified (change in disk pack, tape, 
etc.) and then, to inform the Space Manager of the change 


and its effect on available space. 


8.1 [Wait for a message] Request (space 
operation). 


8.2 E ne message] Determine action 
o be taken. 


8.3 Bar configuration change] 
f (Device deleted) Then Go to step 
8.1 Otherwise If (Outstandin Space 
reguests) Then Go to step 3.7. 


8.4 a freed] If (space freed and 
ou 


Standin ee requests) Then Go 
to ЕР 8.7; Otherwise Go to step 
8.1 ron File Manager - a file has 


been destroyed). 


8.5 Due file] If (permanent file) 
hen [If (space available) Then 
JD SE avallable space and Go to 
step 8.7 Otherwise Release (Error 
message) and Go to step 8.1. 


8.6 Ae file] I£ (б поа file 
hen khile ( space not available) 
Request (space from File manager) }; 
Upaate available temporary space. 


Sad [Create a file] Get an RCB; update 


space available; update file 
directory for the selected Se 
device; and Release (answer) to the 


requesting process; Go to step 8.1. 


ALGORITHM 8 FILE SPACE MANAGER 


Upon fielding a request from a process to create a 
temporary file which required more space then what was 
available, the Space Manager was blocked until a change in 
the system occurred or a previously created file was 
destroyed. When space was not available for a permanent 
file, an error condition was set and the Space Manager 


proceeded to service other requests. 


Ihe interrupt concept, a second and third generation 
advance, was devised to facilitate multiprogramming 


Operations. Sayers [Ref. 18] defined an interrupt as "a 
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break in the normal flow of program execution... usually 
caused by a hardware-generated signal, such as an I/O event, 
a program error, a machine error, or an operator-initiated 
signal." The interrupt was used primarily to compensate for 
the speed differential between I/O operations and central 
processing by permitting the processor to continue execution 
of a process while servicing the I/O requests of other 
processes. For example, a process was blocked upon 
requesting I/0, the I/O operation was started and the 
processor was allocated to another process. Once the I/O 
operation was completed, the system was notified via an 
interrupt signal. At this point, the process which was 
blocked on this 1/0 operation was permitted to preenpt the 
current process and resume execution, or was placed in a 


"ready-active" queue to wait for a processor. 


The Interrupt Handler, as implemented in this 
operating system, was designed to service yaricus interrupts 
by determining which interrupt was set and performing any 
predefined action. The Interrupt Handler, therefore, served 
as an interface between the hardware devices and the 
processes using these devices. When an interrupt occured, 
the Handler was invoked directly (by hardware) to service 
the interrupt. In particular, the state of the current 
process was saved, the Handler released a nessage tc tne 
process waiting for the interrupt and then, control returned 


to the interrupted process. 


9.1 [Walt for interrupt] Wait to be 
invoked by hardware. 


97 [Save state of current process] 
Save process &X- Current process; 
Call Save state (Current process). 


9.3 We Current_process ] 
urrent Process <- Inuterrupt_Hndlr. 


9.4 (Determine action], Identify 
interrupt and required action. 
loe. WAICHh. E is concerned 
with this interrupt and the proper 
message semaphore}. 
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9.5 [Send message] Release (message to 
process). 


9.6 ср оде the preempted process] Call 


estore state (Save process) and Go 
to step 9.1. 


ALGORITHM 9 INTERRUPT HANDLER 


B. OPERATING SYSTEM PRIMITIVES - LEVEL 1 


In a multiprograrming, multiprocessing environment, 
mechanisms must be provided for the synchronization of 
processes during information transfer; for allocation and 
deallocation of resources; for process creation, control and 
termination; and for protection of critical sections of 
code, of data structures and of resources. Tne primitives 


were designed to perform these functions. 


In particular, the technique for interprocess 
communicaticn was defined through the use of the Reguest, 
Release and Allocator primitives; processor allocaticn was 
achieved by the Scheduler primitive. The primitives 
Savestate, Restorestate, Interrupt Enabler and Interrupt 
Disabier assist in process control and protection. Finally, 
the varicus system data structures (i.e., Resource Control 
Block - RCB, Process Control Block - PCB, etc.) were 
"hidden" frcm the rest of the system by providing the 
primitives RCB Handler and PCB Structures. 


À hierarchical organization of the primitives was 
defined in that various prinitives require the services of 
other ones. For example, all primitives invoke the 
Interrupt Disabler at the start of execution and the 
Interrupt Enabler upon completing execution. This was 
necessary to preclude preemption while executing critical 
sections of code. Figure 2 represents the primitive 


hierarchy. 
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at any point in time. Request and Release nessages that 
Cannot be immediately matched are queued on the message 


semaphore and ordered by the priority of the invoking 





process. 

TABLE II. MESSAGE BUFFER 

BEE iil) peewee E eegen See eee 

RELEASOR Internal name of the process releasing 
a message. 

ANSWER-REGUIRED Indicates if an answer to the release 

| ls required. 

MESSAGE-SEMAEHORE Internal identification of the message 
class identifier to be used in the 
answer. 

BUFFER LOCATION Identifies the input/output buffer. 

DATA FIELDS Used to pass action identifiers (inter- 


face variables); device, process, . 
resource external names; and adminis- 
trative data. 


Request and Release may be considered as a software 
interrupt scheme utilized by processes. A process invoking 
Request "enables the interrupt" associated with the 
Specified message  semaphore and a process invoking Release 
"Sets the interrupt". After a Reyuest has been matched with 
a Release, the "message semaphore interrupt" is disabled 


until Reguest is invoked again with that semafhore. 


The ability to Release/Request a message to/from a 
specific process was incorporated to provide a usable system 
with a reasonable number of message semaphores. FOr 
example, to perform a file operation using the services of 
the File Manager, process A only needs the message semaphore 
($FILEOP) and the message format utiiized by the File 
Manager; no cther information is needed. Process A releases 
a $FILEOF message (restricted to the File Manager for 
requests) and specifies the operation desired. If an answer 
is required for synchronization, the message Semaphore 


process A will use in the Request is also specified. When a 
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Bequest from the File Manager is matched with the Release 
from process A, the message data and A's internal name are 
provided to the File Manager. Upon completion of the 
desired operation, a message will pe Released to process A 
specifically, on the desired semaphore. In this manner, 
several processes may be blocked with a Request on a Single 
message semaphore, such as $WAIT; and another process may 
Release messages to a specific process, not necessarily the 


process at the head of the queue. 


10.1 [Disable In eorr 
> Call Interrupt_Disabler. 


10.2 Verify semaphore] |. 
all RCB Data ("validate"). | 
If (Invalid) Then set error code and 
Go to step 10.6. 


10-3 Verify authorization to access] 
all PCB_Data ("access"); 
If (Unauthorized) Then Set error 
code and Go to step 10.6. 


10.4 [Determine necessary action] 
cate alrocasor( data" -Matcn). 


10.5 If a match is found then activate 
he process If (Match) Tnen 
Call PCB_Data ("get priority", PRI); 
Call RCB Data ("put status",READYA); 
Call PCB Data("get type - System Or 
a ee so. 
Call RCB Put Queuc(PINane, 
Ready A Que, Type Process, 
EUREN 
Call Scheduler. 


10.6 рыр = Interrupts ] 
all Interrupt Enabler. 


ALGORITHM 10 RELEASE 


11.1 [Disable ri] 
Cali interrupt Disahler. 


11.2 Verify semaphore] . 
all RCB Data ("validate"); If 
(Invalid) Then set error code and Go 
to step 11.6. 


11.3 De authorization to access] 
ali -pOD Data("accessM):; 
If M Then set error 
code and Go to step 11.6. 


11.4 Determine necessary action] 
atl Allocator (tdata",Match). 
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11.5 [Test for a match] If (Match) Then 
o to step 11.7. | 


11.6 EE the process I 
| all ECB_Data ("status = BLOCKED"); 


dt 


Caii Savestate ("invoking process 
Call Scheduler. 


11.7 Enable GE URES J 
all Interrupt_Enabler. 


ALGORITHM 11 REQUEST 


The Allocator was designed to perform the functions 
common to Reguest and Release: matching messages or queueing 
messages if no match is found. The entry point RCB_Match to 
RCB Structures was implemented to simplify the Allocatcr and 
hide the data structure. | 


12.1 Check for a match ] 
all RCS8 Mateh ("data"). 


12.2 Match and a Request] If (Match & 
equest) Then Do Transfer message to 
Requestor's buffer; and Return. 


1223 Match and a Re ee If (Match & 
elease) Then Do; Transfer message 
to the Blocked Process! Buffer; 
Enter Releasor!s internal name in 
the buffer; and Return. 


12.4 [No Match d a Release] If 


an 
(No Match 86 aed then Allocate a 
u 


temporary message ffer; and Enter 


the message data into that puffer. 
12.5 HS match-queue message S Priority] 
all PCB Data("get priority"); 


Call RCB PutQuve("message, priority, 
and semaphore"); Return. 


ALGORITHM 12 ALLOCATOR 


2T Prinitive z 


Scheduler - Level 1.3 


The processor which is freed when a process is 
blocked gust be reassigned to another: process to efficiently 
use the  processor(s) in a multiprogranming environment. 
Many scheduling algorithms have been proposed; such factors 
as the priority and the past I/O behavior of processes can 


be used to determine which process should be scheduled, or 
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if a currently runñing process should be preempted. Other 
techniques include first-in-first-out (FIFO) scheduling and 
round-robin scheduling, in which each process 1s allocated a 
time-slice on a recurring basis. The scheduling algcrithn 
is usually tailored to achieve the goal of the system, such 
as maximizing throughput in à batch system, or immediately 
starting critical processes jin a command/control system. 
Since the Scheduler is run on the designated operating 
System processor, that processor must be started last to 


preclude preempting the Scheduler. 


13. 1 Initialize variables 
rocessor &- User "Processor (1) ; 
Que <— User; 1 <- 2; 
Cycle finished <- False. 


12.2 [Check processor] If (Processcr is 
not allocated) Then Go to step 13.6. 


13.3 [Check the реет Call RCB_Find ("get 
EEN of the top element in Que); 
(Que is empty) Then Go to step 


13.4 [Check for preenption] If 
preemption 1S desirable) Then Call 
savestate (Current Process, Processor) 
Otherwise Go to step 13.7. 


13.5 [Change status and queue current 
process] Call PCB_Data ue status 
of current process to VAG ead 
'insert rent process 
on 


13.6 Bee Ae up a priority process ] 
all RCB_Get_qgue ("process at the 
head of Que"); 
Call  PCB Sata ut status of New 
Process to RUN T Gu). 
Call Restorestate (New Process, 
Processor). 


13.7 [Check for a new cycle] 
d „erste Finished) Then Go to step 


13.8 a next processor] 
f (more user processors) Then Do; 
Processor Se User ESS ota. 
1 <— 1 Else Do; 
Processor Zo system. Processor; 
Que «— CS Que 
Cycle Hue dn <- True; End. 


13.9 [Loop] Go to step 13.2. 


ALGORITHM 13 SCHEDULER 
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The Device Directory prinitive was designed to 
interface with the Operator System Communicator, Input 
Controller, Output Controller and File Manager processes to 
provide information concerning system configuration, I/O 
devices and device interface processes. During systen 
initialization and, when required, for systen 
reconfiguration, this primitive would be invoked tc cbtain 
the data used in creating kesource Control Blocks for the 
devices and Process Control Blocks for the interface 


processes. 


The Directory was designed to store two classes of 
data; system configuration (menu) and resource data. Systen 
configuration data defines several possible configurations 
which may be selected at system "start up". For example, 
Menu A may identify Cardreaderi, Lineprinter3, Consoie2, 
etc. апа Menu B identifies Cardreader2, Lineprinter3, 
Console1, etc. The resource data contained in the Directory 
May consist of the interface process's external name, code 
location, priority, etc. and the device's access qualifier 
(shared or private), blocksize (buffer length), interrupt 
identifier, and so forth. This data is used by the Operator 
System Ccmmunicator to identify the devices to be activated 
and, hence, the message to be sent to the appropriate data 
transfer controller (Input Controller, Output Controller or 
File Manager). The various data transfer controllers use 
this information to create the interface process and device 
RCB. The Device Directory primitive provides a centralized 
and standard method for accessiug the required information 
to select, activate, and modify the system configuration; 
consequently, a modification to the current functions cf and 


Services provided by the operating system. 
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14.1 Disable the SEU ENA] 
all Interrupt Disabler. . 


14.2 Identify informatıon 


enu_Data Then Look nun): 
Otherwise Look Mer 
14.3 Entr found Entry Found Then 
Dans er a Te set error 
code. 


14.4 SE the cere Ed 
all Interrupt Enabler. 


ALGORITHM 14 DEVICE DIRECTORY 





The data stractures primitives were designed 
prizarily to eliminate the data dependencies and alleviate 
the critical section problem that has plagued many second 
and third generation computer operating systems. FOL 
example, concurrent access to a common data element was 
prevented by designing these modules as ncn-interruptable 
primitives and defining interface variables through which 
the processes and other primitives access or store data in 


the structures. 


Every process and resource is represented in the 
systen by its state, identification and accounting/admin- 
istrative information. A corresponding data structure was 
defined to contain this descriptor data for use in ktasic 
process and resource operations (1.€., scheduling, message 
handling, etc.). Tables III and IV represent a flexible and 
general purpcse model structure for process and resource 
descriptors, respectively. For example, a field ray be 
added or deleted provided the interface variable associated 
with the field is also appropriately modified. If a data 
type were changed, code to convert the data to the type 
expected by other uoaules need only be added to the data 
structure module. The kesource Control Block was designed 


to be functional for the types of rescurces identified 
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TABLE III. 
MELDO 2 
EXTERNAL NAME 
PARENT 
CHILD 


LEFI SIBLING 

RIGHT SIELINC 
PAGE TABLE PCINTER 
FILE-SHARE-WKITE 
COUNTER 


PROCESS IYPE 
RESOURCE VECTOR 


FILE ACCESS STATUS 
MESSAGE EUFFER 
STATUS 


PRIORITY 
QUANTUM 


CYCLE TIME 
PROCESSOR 


STATE VECTOR 


PURPOSE___ 


PROCESS CCNTROL BLOCK DATA STRUCTURE 


User/operator specified process nare. 


Internal name of POS which created 


this process or which is the parent of 
a sibling which created this process. 


Internal name of a dependent process . 
created by this process or another child 
of this process. 


Link to related independent processes. 
Value is a process internal name. 


Link to related independent processes. 
Value is a process internal name. 


Adaress of the process's Page Table. 


Counter of the number of outstanding 
file open requests for write access to a 
non-owned, shared file. 


Identifies system versus user process. 


Identifies resources accessible or 


acquired. 


Identifies the process as a reader or 
Writer, or 3f 1t 1S in a 5асг1г1седа 
condition. 


Pointer to the process's message buffer. 


The status of the process in the systen; 
L.e., Blocked, Running, Ready, etc. 


Identifies relative importance of the, 
process; used in queueing and scheduling 
Operations. 


Specified time interval in which a 
DEO Sont is assigned to this prccess 
or execution. 


Reschedule time period for a recurrent 
process. 


Internal name of the processor allccated 
to the prccess for execution. 


Save area for the initial or last state 


of execution; i.e., instruction counter 
and processor register values. 
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TAELE 





ASSIGNED 
CREATOR 


ORNER 


EXTERNAL NAME 
DEVICE STATUS 


DEVICE IID 
SHARED-PRIVATE 
COUNTER-SIZE 


STORAGE LEVICE 
NAME 


OPEN FILE 
FILE TYPE 


LEFT QUEUE 
POINTER 


RIGHT QUEUE 
POINTER 


FROM 
TO 


PRIORITY 
FILE DATA 


MESSAGE 
POINTER 


UP-LINK 
DOWN-LINK 


IV. 


RESOURCE CONTROL BLOCK DATA STRUCTURE 


EXAMPLE RESOURCE TYPES AND FiELD USE 


SEMAPHORE 


system 


proc. iid 


Creator 


N/A 


N/A 
s. 


counter 


OL P. 


N/A 


N/A 
N/A 


Request 
nessages 


Release 
nessages 


SAMPLE 


nessage 
addressor 


nessage 
addressee 
PEOC. pri, 


N/A 


25% 


DEVICE 


egent GUN SER s ee ee eee eee eee ANNA camem ee ee i o es geb eium ee ee ce ee eee enim 


systen 


proc. iid 


interface 
proc. 11d 


— ae =e 


active or 
hold 


N/A | 
ог р. 
nunber 
external 
nane 
N/A 

N/A 


process 
accessing 


process 
Waiting 


for access 


LEFT/RIGHT 


proc. iid 


message 
semaphore 
proc. pri. 
N/A 


N/A 
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STORAGE 


systen 
proc. 
File 
Manager 


iid 


active or 
hold 


RCB Nr. 
S. or P. 


space 
available 


N/A 


N/A 
PERI 
Permanent 


not used 


file . 
creaticn 
requests 


QUEUE 


Proc. lid 


nessage 
semaphcre 
DIOC pri. 
file iid 


N/A 


— =— 


FILES____ 
T: 


system 
proc. 


or P. 


iid 


proc. iid 


active or 
hold 


RCB Nr. 
Sé 


file 
length 


external 
nane 


Read/krite 


Or pe 


ol 
Permanen 
both 


process 
accessing 


file 
open 
requests 


proc. iid 


JE 
emaphore 
proc. pri.: 
Read/krite 
N/A 








during the design of the operating system; i.e., semahores 


(nessage class 


consoles,  etc.), 


identifiers), devices (readers, writers, 


secondary storage devices (tapes, 


disk packs, etc.), and files. 


15.1 


15.2 


15:2-1 


15.2.2 
15.3 


15.4 


15.5 


15.5.1 


15,5.2 
15.6, 


1576.1 


13.6.2 
15.7 


15.8 


ALGORITHU 


коор interrupts] 
all Interrupt Disabler. 


E РЕВ 
f (action - Create PCB) Then 
Begin. 


E for space and authorization] 
f((space available) & (Process has 
quent cet ton) ) Theh assign a PCB 
Number and enter data passed; 

Else set Error code. 


[Finished] Go to step 15.8; End. 


[Ern PCB Number corresponding to an 
xternal None 

If (action = Find PIName) Then, Do; 

Search active PCBs for specified 

external name; If (souna Then 

PIName Parameter <- PCB_Nuntker; 

Else  PIName Parameter «- 0; Go to 

step 15.8; End. 


Check validity oi PCB тре. 

f N Number is invalıd) Then_Do; 
I rror code; go to step 15.8; 

nd. 


Free a PCB] i 
f . (action = Release PC3) Then 
Begin. 


Check authorization] . 

f (Process has authórizaticn) Then 
set | specified PCB Status to 
inactive; Else set Error code. 
[Finished] Go to step 15.8; End. 


šev data into a PCB] | 
f (action - Put Data) Then Begin. 


Check authorization] . 

f (Process has authorizaticn) Then 
Store the data; Else set Error code. 
{ Finished] Go to step 15.8; End. 
(Get data from a PCB 
if (action = Get _ Data) Tien i 
Data Parameter <- Desireu PCB Field. 
an interrupts] 

all Interrupt_ünabler. 


12 PCB STRUCTURES 
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16. 1 


16.2 


16.2.1 


216752727 
16.3 


16.3.1 


16.3.2 


16.3.3 
16.4 


16.5 


16.6 


16.7 


16.8 


16.8.1 


16.8.2 


Disable m ce 
all Iaterrupt, Disabler. 
en RCB] 
f (action - Create RCB) Then Begin. 


Mes if о is available] 
Hs Toca or specified RCE type is 

available) Then 

assign RCB and enter data; 

Else set Error code. 


[Finished] Go to step 16.14. 


[Find an RCB Number corresponding to 
an External sre 

If (action - Find RIName) Then 
Begin. | 


[Search active RCBs 
Search active RCBs for the External 
Name specified. 


BESTEN усе, | 

£ (External Name is found) Then 
RiName Parameter <- RIName; 

Else RIName Parameter «- 0. 


[Finished] Go to step 16.14; End. 


eR validity of RCB Number 

£ (invalid RCB Number) Then Do; 
set Error code; 

go to step 16.14; End. 


Free an, RCB] 
f action = Release RCB) Then set 
RCB, Number specified to unassigned. 


Enter data in an RCB] 
£ (action = Put_Data) Then 
enter specified data element. 


(Retrieve data fron an RCB] 
If (action = Get Data) Tnen 
Data Parameter vc desired RCB field. 


rnc a Process in a queue] ` 
if (action = Find_Proc) Then Begin. 


[ Search the specified Queue for the 
specified PINane] 
Search Queue for PIName; 
If (found) Then return the data and 
queue position; 

lse return "Process not found", 


[Finished] Go to step 16.14. 
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16.9 


16.9.1 


16.9.2 
16. 1C 


16.11 


16.11. 1 


16.11.2 
16.12 


16.12.1 


16. 12.2 
16. 13 


16. 13. 1 


16. 13.2 
16.14 


[Find the Process at the specified 
Bo ın a MEU, | Ee 

f (action - Find At Position) Then 
Begin. = 


[Find the Queue element at the 
Specified position] 

Find the specified Queue element; 
If ( specified Queue element is 
active) Then return data in the 
Queue element; Else return "Queue 
element not active". 


[Finished] Go to step 16.14; End. 


er an element in a Queue] 

f (action = Put Que) Then enter the 
data in the specified Queue 
en element from a queue] 

f (action < Get Que) Then Begin. 


Se the specified gueue element ] 
ind Queue element; 

If (Queue element is found) Then 
Remove the specified Queue elenent; 


Else return AE TE mat not found". 


[Finished] Go to step 16.14; End. 


[Transfer a queue element from the 

Specified queue to the Opposite 

aucuns i .if (action - Transfer, Que) 
hen Begin. 


Find the specified queue element] 
ind Queue element; 
If (Queue element is found) Then Do; 
Remove Queue element; Insert Queue 
element on the opposite queue; End; 
Else return "element not fcund". 


[Finished] Go to step 16.14; End. 


[Compare specified data with queue 
element, data ina ee queue] 
If (action = Hatch) Then Begin. 


[Check each active element in the 
ne for compatible data 

daten round <= False; | 
For i = (first queue element) Until 
(Last queue element) Do; 
compare data; 
If (compatible) Then Do; 

Match round «- True; exit For loop; 
End; rnd; 
If (3atch Found) Then Remove queue 
element and return data; 
Else return “match not found". 


[Finished] End. 


ME сыре 
all Interrupt £nabler. 


ALGORITHM 16  RCB HANDLER 
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Er шы. ee ee Da an ay Co No GAN on en on ae on pie on 


A processor has a normal complement of registers 
used to fetch, select and execute instructions, anda 
mechanism for interrupt recognition. To provide tc the 
operating system the facilities for altering process 
execution (i.e., preempt and schedule/reschedule processes) 
and to protect vital operations on commonly accessed data 
structures, a set of primitives have been designed to enable 
and disakle interrupts and to save, set and reset the 
processor registers. The primitives, Interrupt Enabler, 
Interrupt _Disabler, Savestate and Restorestate, defined 
below, perform these functions when invoked Ly processes and 
other primitives. 


17.1 Decr ES or all interrupts] 

f (Interrupt# = 0) Then Enäble all 
the interrupts in the current 
Savevector; Otherwise Enable 
interruptií. 


ALGORITHM 17 INTERRUPT ENABLER 


18.1 [Specific or all interrupts] 
If (Interrupt# = 0) Then Disable all 
interrupts and save status in 
Savevector; Otherwise Disable 
Interrupt#. 


ALGORITHM 18 INTERRUPT DISABLER 


19.1 [Disable all interrupts] 
Call Interrupt_Disabler. 


15.2 [Set copy of processor registers] 
Tremp_regs = CPUREGS (Processor). 


19.3 e copy in PCD] 
all PCB vata("teup regs",process). 


19.4 Enable the Sl] 
all Interrupt Enabler. 


ALGORITHM 19 SAVESTATE 
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20.1 [Disable all apterrupks 
Cali Interrupt Disabler. 


20.2 Get copy of saved Statevector 
ali PCH Data ("temp Regs", Proc SS). 


20.3 Set оссо: Beg tober J 
PUREGS (Processors) - Temp Regs. 


20.4 Enable the Pu Eule) 
all Interrupt_Enabler. 


 ALGOBITHM 20 RESTORESTATE 


48 








IV. DESIGN VALIDATION 

This chapter is concerned with implementation of the 
nodules specified in Chapter III, testing the design 
correctness and demonstrating the feasibility of the 
proposed cperating system model. Time constraints precluded 
the development of the entire system, so the decision was 
made to verify selected functions (i.e., interprocess 
communication and synchronization using semaphores and 
messages). For example, the Error Handler was implemented 
to receive error messages and to generate messages for the 
system operator, but error correction routines were left 
undefined. Similarly, the Operator System Communicator 
module was provided a minimum set of control message codes 
to identify selected actions (add or delete a device, etc.) 
and to handle message passing. Certain primitives, 
including thcse which perform the primary functions of 
dynamic creation and control of processes and resources as 
well as  interprocess communication, were implemented in 
detail. The criterion that modules were to be independent 
allowed the implementation to proceed along a path through 
the processes to the primitives with incomplete or partially 
developed modules at several nodes. Model testina was 
performed uSing three additional modules: a hardware 
Simulator, an initialization procedure and a preprocessor 
macro. The Formal Module Specifications with accompanying 
PL/I inplementations, and the test modules are described in 


appendices C aná D, respectively. 


A. THE HABLWARE SIMULATOR 


The Hardware Driver module was designed to perform 
hardware functions such as recognition of interrupts and 
execution of code at an address specified by the instruction 


counter. Additionally, code was included to create the 
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desired system state so that system behavior could be 


validated. 


One of the processor "registers" was used as an 
instruction counter to indicate the current status of 
program execution and another "register" was used to 
identify the process which was scheduled to execute. An 
integer mapping was used to identify the processes (i.e., 
the Error Handler was identified as process one (1), the 
Operator System Communicator as process tuo (2), etc.), The 
process identification and instruction counter were 
separated tc avoid encoding and decoding information in the 
Hardware Driver, and to allow the model to be expandable to 


simulate paging. 


B. THE INITIALIZATION MODULE 


A special module was implemented for initializing 
interface variables and for creating the envircnment 
necessary to start up the system. PCB's were created for 
the operating system processes aS were the semaphore RCB's 
they required for  interprocess communication. The 
initializaticn procedure in the PCB Structures module was 
used to create the PCB for the Error Handler; the PCB's for 
the remaining system processes were created dynamically in 
the Initialization routine with the Error Handler identified 
as the running process. Message and I/O buffers were 
allocated and assigned to each of the system processes, and 
the internal identification of the resources required py 
each process were entered in their respective access 


vectors. 


The initialization process could have keen igplesented 
using PL/I initial attributes (initializing variables at 
compile time) within the various modules. However, in 


consonance with the Decision Hiding Criteria, the  initial- 
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ization of the interface variables was implemented in a sep- 
arate module. Additionally, the initial configuration was 


more eaSily modified during the deSign and testing phase. 


C. THE FREPROCESSOR MACRO 


A preprocessor macro (SIMULTR) was used to adapt the 
PL/I modules fer testing. Simulation interrupt  roints 
(SIM INTERRUPT PTS) were placed in the modules where a 
process ight be blocked -(i.c., after invoking the priritive 
Reguest). The macro waS implemented to include the code 
necessary to generate a label at the selected interrupt 
points, set the simulation instruction counter tc the 
appropriate value and exit the module. The additional 
Statements SIM_START and SIM_END were necessary to generate 
the code to initialize the Simulation and generate 


declaraticns. 


Me TESTS OF SELECTED OPERATING SYSTSM FUNCTIONS 


Selected system processes were implemented to verify 
interprocess communication techniques. Since the test 
program required to realistically demonstrate this function 
would encompass the operations performed by Reguest, 
Release, Allccator, PCB Structures and RCE Handler, these 
primitives were implemented in detail to provide a basis for 
testing the model. Subsequently, test programs were 
designed and implemented to assure the correctness of the 
data storage and retrieval operations, queue manipulation 


techniques, and message handling procedures. 


In particular, the Initialization Module was invoked to 
initialize the interface variables, establish the PCB's for 
the selected processes and to create RCB's for the message 
class identifiers (senaphores). Once the initial 
environment was established, the ability to send messaces to 


a Specific process was tested by multiple invocations of 
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Release with a specific semaphore, a varying addressee, and 
a unigue message. Request was then invoked with the same 
semaphore and both specific and general addressees to verify 
the logic of Release, Allocator and RCB Structures. The 
roles of Release and Request were then reversed. The 
primitives were tested in a similar manner using messages 


with general addressees. 


Having successfully tested these primitives, the 
Scheduler primitive and the Hardware Driver were implemented 
to schedule and Simulate running the selected system 
processes. In particular, a test program was included in 
the Hardware Driver to simulate the system operator entering 
commands to add an input device, an output device, and a 
disk unit. These messages were released to the Input 
Controlier to be passed to the Operator System Communicator. 
The system processes, upon being selected for execution and 
then invoked by the Hardware Driver, initiated a Request for 
a message. Since there was a matching Release on the queue 
for the Input Controller, it was received, interpreted and 
passed to the Operator System Communicator which in turn 
received and interpreted the message. The simulation 
continued until the initial three messages released by the 
Hardware Driver and the subsequent responses were received 


by the approprlate system processes. 


The write statemeuts generated by the Preprocessor líacro 
were used to trace the flow of messages from the Input 
Controller to the Operator System Communicator, and from 
that process to the Input Controller, Output Controller and 
File Manager. The logic used to create the interface 
processes was not validated; only the sequence in which the 
messages were requested, released and received was verified. 
Message flow to the Error Handler was also demonstrated 
during the preliminary system tests; however, comprehensive 


error generation and validation was not accomplished. 
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V. SUMMARY AND RECOMMENDATIONS 


The emergence of sophisticated, versatile computer 
systems has resulted in the need for operating systems which 
are efficient, adaptable, maintainable and general purpose. 
Adaptability permits expansion or nodification within 
reasonable cost and time constraints.  Maintainability makes 
System error .detection .and correction’ more feasibie. 
Generaiity must exist if the operating system is to be 


useful to the many classes of potential users. 


A. SUMMARY 


As presented in Chapter II, the first step in the design 
of an operating system was the identification and 
specification of the overall systen behavior in a 
hardware-soztware environment. Before specifying and 
irplementing tne system modules, a set of primary functions 
were postulated and the design was then carried cut by 
employing the techniques of Structured Programming, Decision 
Hiding and Hierarchical Ordering. At each level of 
development, new functions were identified and the decision 
was made to either isplenent the functions within the scope 
of the current module being designed or to irplement it in a 
Separate module. The principle consideration for specifying 
new nodules was the need for having one module perform 
commen services for the other modules, thus reducing the 


System conpiexity. 


The mcdules were grouped into two classes (processes and 
primitives) and ordered  hierarchically. AS the design 
proceeded, hardware dependencies were identified and progran 
stubs were inserted to identify the areas of incomplete 
specification. However, the functions to be perforred at 


these stubs were defined so that the appropriate code nay be 
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written and inserted as the target machine and system 
configuration are specified. In this manner, it was possible 
to accomplish the goal of designing a well defined general 


purpose cperating systen. 


Though the goal’ was far reaching, it did not seen 
practical to approach the design of an operating systen by 
considering each segment of the system independently (for 
example, designing interprocess communication without 
considering data structures and data access methods). The 
design preceeded in a "top-down" fashion, specifying mcdules 
to  perfcrm the various runctions required Бу the previously 
defined zodules. As a result of having a set of machine 
independent moduie definitions, it was then possitle to 
implement and test the postulated function of each module 
Separately at first, and then collectively.  Finaliy, formal 
specifications identifying the parameters, data  siructures, 
module interfaces, and primary functions were developed for 


each module. 


Many of the features of the design are of particular 
interest. The interprocess communication modules define the 
techniques which aid in resource acquisition and process 
control (interrupt) and which provide the ability for 
synchronization of asynchronous operations. The data 
structures modules are the focal point for accessing, 
transferring and storing of data while allowing fcr the 
design and implementation cf other modules which are 
independent of the data structures. This latter case 
defines a mechanism for generating adaptive changes to an 
existing data structure without necessitating najor changes 
to other ecdules providing the change is within the 


Bipterface constraints. 
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B.  RECOHMENLATIONS 


As stated previously, the primary goal of this project 
was the design of a general purpose, . modular operating 
systen which, at least conceptually, was hardware 
independent. Since module functions were postulated within 
a set cf generalized constraints, extenticns of this work 
May proceed in several directicns. Firstly, each module 
specification should be more closely investigated to 
determine if a better technique for performing the function 


May replace the proposed one. 


Secondly, investigation into the hardware versus 
software dilemma should continue with the emphasis on 
identifying operating system functions which, if performed 
by hardware, would enhance system performance without 
degradaticn of system flexibility, adaptability, and 
generality. In particular, the primitives Request and 
Release as designed in this system are two functions which 
could ccnceivably be implemented in hardware. Additionally, 
disabling and enabling interrupts, saving and restoring 
process states should be performed by simple machine 


instructions. 


Thirdly, a target machine should be specified for which 
a sirulaticn model may be developed to test the correctness 
of the design decisions in a real time and multiprocessing, 
multiprogramming environment. The stubs shculd be replaced 


with workable test programs to support the simulatioirr. 


The programming language PL/I was used for module 
iuplementaticn aná testing rather than a conventional use of 
an assentler language. The use of PL/I enhanced the 
comprenensability of the program logic and provided several 
mechanisns which aided in module inplementation and testing; 


i.e., based and pointer variables, on conditions, generic 
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entry pcint specifications, and preprocessor functions. 
These high level iaaguage constructs and the addition of a 
construct for supporting queueing operations are recommended 
for inclusion in Cs-4 (see Appendix B). Additionally, a 
compiler for the language should be designed which employs 
the latest techniques for code optimization since ccmpile 


time is, in general, less critical than execution time. 
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APPENDIX A: GLOSSARY 


Access Vector: PCB. data element that identifies the 
resources and primitives which may be used by the 
process. 


Active: A status value which indicates that a process is 
walting for a processor. 


Algorithr: A prescribed set or well-defined rules for the 
Solution of a problem in a finite number of steps. 


Assignment Vector: PCB data element which identifies the 
resources a process currently controls, must be a subset 
of the access vector. 


Blocked-For-Timer (BlockedT): A status value which 
indicates that a process 1S waiting for a deadline. 


Buffer: A temporary storage area used for the transmission 


of data. 

Child: FCB data element that identifies the first 
cependent process in the list of related dependent 
processes. 


Cycle Time: PCB data element that identifies the 
reschedule tiie interval for a recurrent process. 


Deadline: The latest time at which the execution of a 
process may begin. 


Deadlock: The conditicn that results from the ailocation of 
resources among certain processes in such a way that it 
1S impossible to grant additional requests o these 
processes. 


File: A collection of related data items treated as a unit. 


Hardware: Physical equipment, e, g; mechanical, 
electrical, or electronic devices. 


Interface: Ihe linkage and conventions established for 
communication between tec independent elements, „usually 
between a rocess and another process, computer 
operator, I/O device, etc. 


Interrupt: A break in the normal flow of execution usually 
caused by a hardware-generated signal. 


ICL: Job Control Language E used to provide job 
Specifications. 
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Job Queue: Contains the JCL and administrative data of a 
process prior to its creation. 


Left Sibling:, PCB data element that links the process to 
and identifies a related independent process having the 
same parent. 


LSI: Large scale integration. 


Module: One buliding block or logical unit which is used 
in the construction of a systen. 


Multiprocessing: The use of two or more processcrs to 
logically or functionally divide processes and to 
simultaneously execute various processes or segments of 
processes asynchronously. 


Multiprogramming: The use of the computing п to 
perform interleaved execution of two or nore ifferent 
processes which Simultaneously contend for system 
resources. 


Operating System: A set of programs and routines which 
Guide a processor in the performance of its tasks and 


assist he programs an programmers with supperting 
functions. 
Page: A rrocess section of convienient size for 


transaission between secondary storage aud main stcragc. 


Page Table: PCB data element that contains the location of 
the process! pages in secondary storage. 


Parent: FCB data element that identifies the process on 
which this process 1S immediately dependent. 


PCB: Process Control Block, a collection of control data 
concerning a process. 


Primative: An algorithn that is invoked by a process and 
1s executed aS a part of the invoking process. 


Preenpticn: The seizing of resources previously allccated 
to processes. 


Print Queue: Contains the administrative data identifying 
processes! output files. 


Priority: PCB data element that identifies the order of 
precedence ror competing processes. 


Process: An , algorithm which requircs resources and can be 
characterized by its state and environmcnt. 
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Processor State Vector: PCB data element that specifies 
the necessary information to start (restart) the 
process; 1.€., processor's registers contents. 


Quantum: PCE data element that identifies da limited or 
algorithmically ‚specified time interval during which a 
processor is assigned to a process in a multiprogramning 
environment for sharing he prócessor among comreting 
processes, 


Queue: An ordered or unordered list of processes waiting 
fcr scue resource or service. 


RCB: Resource. Control Block, a collection of data 
concerning a resource. 


Resource: Any facility of the computer system or operating 
System required by a process. 


Right Sibling: PCB data element that links the process to 
and identifies a related independent process having the 
same parent. | 


Running: A status value which indicates that a process is 
zn execution. 


Semaphore: Identifies a resource or class cf resources. 


software: Programs or routines to be executed on computer 
hardware. 


Spooling: A technique for interleaving 1/0 operations and 
process execution. 


Status: PCB data element that identifies the current state 
of the process in tne system. 


Stub: Denotes a logical break in a program at which point a 
Subprogram or macro, cail may be inserted when the. 
functional subspecification 1S implemented. 


Suspend: A status value which indicates that a process is 
not contending for resources and cannot be scheduled for 
execution until a system or process imposed condition 
has reen Satisfied. 
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APPENDIX B: MODELLING LANGUAGE 


The work done by D. L. Parnas in the development of 
SODAS (Ref. 9] and the high level language operating 
systems, such as the Burroughs MCP, HUITICS and Project SUE, 
have prcvided the mctivation for modelling and implementing 
the AADC operating system in a high level language. 
Furthermore, the AADC program specifications have included 
the development of a new high level language, tentatively 
called cCS-4, and the design and implementation cf an 
operating system for AADC in the proposed language [Refs. 11 
and 19]. Basically, CS-4 has developed as an extension to 
the Navy Tactical Compiler Monitor System (CMS-2) with the 
impetus on utilizing the proposed AADC hardware features and 
facilitating the programming of efficient executive and 


applicaticns programs [Ref. 20]. 


A comparison of selected features of CS-4 to those 
defined in the languages available at the Naval Postgraduate 
School has been the basis for the selection of a high level 
language for modeliing. The resuits of the comparison, 
presented in Table V, have led to the selection of  PL/I in 
that it is more representative of CS-4 than the cther 
languages. Additionally, PL/I has provided a number of I/O 
control, storage allocation and system contrcl features that 
facilitated testing and simulating the model. Those 
features of CS-4 considered germaine to the modelling effort 


are defined below: 


1) Compound Data Structures: A hierarchical set of 
variables that refer to an ee of data ¡tens 
that may or may not have different attributes (data 
types), : 

2) Logical; Boolean, Arithmetic and Conditional 
Operators: A set of symbols each specifying an 
operation to һе performed; the result o Which 


depends upon the tyve of data and context in which it 
QECULS Ee | 

ПКО (E—1) > B) OR O (C53)]. THEN <.. | 
the minus Sign, -, 1S arithmetic, the 'OB' is kcolean 
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3) 


4) 


>) 


6) 


1) 


-8) 


9) 


and the greater than, >, and equal, =, signs are 
conditional operators, 


Fxternal Data Declaration: An explicit or 
contextuai declaration of an identifier such that it 
is only Known within the scope of the declaraticn, 


External Procedure Declaration: An explicit or 

contextual declaration of a procedure such that the 
rocedure is only | known within the scope of the 
eclaratıon, 


Variable Size Array Declarations at Runtime: The 
dirension of an array is determined and space 
allocated during execution of the program, 


Flcw Control: ‚The ability to control the execution 
of a specific instruction or set of instructions: 

1. Algolic Case Statment 

11. If and compound If Statment 


iii. Do Statmen 
lVe While Statment, 


Limited Scope Variables: An identifier which is 
known only within the scope of its declaration, ` 


Macro Definition: A compile time ‘feature Which 
provides the ability to Eee N an instruction or set 
of instructions which replace the macro name where it 
occurs in the source program, 


Character String: A string composed of zero or more ' 
characters from the complete set of characters whose 
pit configuration is recognizabie by tne  comrpucer 
system in use, 
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APPENDIX C: MODULE SPECIFICATION AND IMPLEMENTATION 
PREPROCESSOR FUNCTION 


/* * * 39 ж * ж ж ж ж ж ж Жж ж ж ж ж ж ж ж ж Ж ж ж ж ж ж ж ж ж 


NAME CHANGER PREPROCESSOR MACRO, USED TO SHORTEN 
IDENTIFIERS WITH PRE EXTERNAL ATTRIBUTE TO SEVEN 
CHARACTERS DUE TO A PL/I RESIRICTION 


"ENAELED" BY. XINCLUDE NAMCHGR; » 


ADECLARE ( 
CURRENT PROCESS, 
CREATE RCB, 
DESTROY RCB, 
DEVICE DIRECTORY, 
DEV L LIHIT, 
DEV U-LIMIT, 
ERRCR HANDLER, 
FILE I LIUIT, 
FILE MANAGER, 
FILE SPACE MANAGER, 
FILE bi mili 


RUE 
INITIATOR, 

INPUT CONTROLLER 
INTERRUPT HANDLE 
OPERATOR SYSTEM COMMUNICATOR, 
OUTEUT CUNTROLLEK, 
PCBSTRINT, 

PCT L LINiT, 

PCT U LIMI 

PRINITIVE ACTIVATE 
PRIMITIVE ALLOCATOR, 
PRIMITIVE CREATE PCB, 
FRIMITIVE DESTROY, 


ERIMITIVE INTDERÜET DISENABLER, 
PRIMITIVE INTERRUPT ENABLER, 
ERIMITIVEZPCBDATA, 


PRIMITIVE“PUTQUE, 
ERIMITIVE RCBDATA 
PRIMITIVE RCB HANOLER, 
PRIMITIVE RCB MATCH, 
PRIMITIVE hELZASE, 
PRIMITIVE RESIORZESTATE, 
PRIMITIVE REQUEST, 
PRIMITIVE SAVESTATE, 
PRINITIVE SCHEDULER, 
EROCESSOR, 


SEM LIMIT 
SEM-L LIMIT, 
SYSTEROCESSOR, 
TERMINATOR 

) CHARACTER ; 
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ZCREATE KCB = 'CREAT R'; 
CURRENT _EROCESS = TTURPROC! ; 
&DESTROY RCP - 'DSTRY R'; 
SDEVICE LIRECTORY = "DEV DIC!'; 
$DEV L LIMIT = '!'LDEVLIM'T | 
ZERROR HANDLER = 'ERRHDLR®* 

DEV U7 LIMIT = E 
ZFILE I LIMIT = 'IFILLIN 
SFILE MANAGER= ' PILEHAN'; ` 
FILE SPACE MANAGER = 'FSPAMN"; 
VFILF U LIMIT < 'UFILLIM'; 
AFIND_IRANE = 'FNDINAM':. 

«FIND PINAME = 'FPINAME 


KINITTALIZATION= !INITIZE'; 
AINITIATCR ='INITATR'! ; 

&INFUT CCNTRCLLER-'IN CONT! 
AINIERRUET_HANDLER = TInrupia' i 
ROPERATOR SYSTEM COMMUNICATOR ='"CP_COMN' ; 
OUTPUT CCNTEROLLER = 'GUT_CON' ; 
ZPCBSTRINT = '"PCBINIT!; 

&PCT L LIMIT - "LPCTLINM'; 

PCT U LIMIT - 'UPCTLIM'; 

&PRIMITIVE ACTIVATE <'ACTIVAT'; 
APRIMITIVE ALLOCATOR — 'ALLOCTR' ; 
ZPRIHITIVE CKEATE PCB = 'CREAT P'; 
%PRIMITIVE DESSROY <'DESTROY'; 
APRIMITIVE GETQUE = *GETQUER!; 
GPRIMITIVE INTERRUPT_DISENAELER - 'DISNABL' ; 
ZPRIMITIVE INJERRUPT ENABLER — 'ENABLE ' ; 
X&PRIMITIVE PCBDATA <" 'PCBSTR'; 
SPRIMITIVE PUTQUE='PUTQUE'; 
PRIMITIVE RCBDATA'RCBHDLR'; 
APRINITIVE_RCB HANDLER = 'RCBHDLR'; 
%APRIMITIVE KCB MATCE='RCBMTCH!; 
APRIMITIVE RELEASE = 'RELEASE'!: 
ZPRIMITIVE RESTORESTATE = 'KESTATE'; 
SPRIMITIVE REQUEST = 'REQUEST!; 
PRIMITIVE SAVESTATE = “SAVSTAT!; 
@PRIMITIVE SCHEDULER = 'SCHEDLR'; 
RPROCESSCR = 'PRCSSR!; 

4RCE BIILATA = 'BITDATA!; 

ARCB CHARLAT-'CHARDAT'; 

RCD FIND=*RCBFIND!; 

ARCE FIXEDAT='"FIXBDAT!; 

ARCE TRANSFERQ = 'TRANSQR!; 

ASE LIMIT = "USEMLINM!; 

ASEN L KIKIT = "LSEALIM!: 

ASYS” PRCCESSCR = 'SYSPSCR' ; 
RTEKRINATICR = 'TERMNTR'; 


[RR eR RK RK ER KR ROR OR RR KK ROK RK KK 3 ROK KX 
USEFUL DECLARATIONS NOT FROVIDED BY PL/I. 
INCLUDED BY INCLUDE GENDEC; m 


WEL TRUZ EIT(1) STATIC INITIAL(" 158) ; 
BEL FALSE BIT(1) STATIC INITIAL("O'B); 


ALECLARE FOREVER CHAR; 
AFOREVER-'WHILE (TRUE)'; 
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vča Z k 22 £ * * X X X k Жж k k Xk Ж ж ж Ж ж k * X X k K ik k * sk 
PREPROCESSOR IMPLEMENTATION OF A CASE STATMENT. 
"ENAELED" BY  XINCLUDE CASESTM. x / 

%4DCL DO ACTICN OF ENTRY RETURNS (CHAR) ; 

ZDCL CASE ENTRY RETURNS (CHAR) ; 

&DCL END CF CASES ENTRY RETURNS (CHAR); 

&DCL ENDCASE CHAR; 
(01,411,0NEST) FIXED; 

&DCL GK EIXEL; 


RE SP TO END OF CASE STMT'; 


*DO_ACTICN OF: PROC RETURNS (CHAR); 


@NEST = @NEST + 1; 
y BETURN (* BEGIN; GO TO"); 
9 


ACASE: PECC KETURNS(CHAR); 
IF(ÒNEST = 1) THEN QI = Ol + 1; 


ELSE 011 = ari + 1; 
Mo ze 
NL, 


REND OF CASES: PROC RETURNS (CHAR); 
IF (GNEST = SI THEN DO; OK = ai; 
Q E EN 


ws EY 
I 
II 
^ 
m= 
z] 
Ka 
O 


ELSE DO; 011; all=-1; 
NEST = @NEST S 
KETURN('DCL CASELAB(aK) LABEL; 
ENC OF CASE _ SIMI: LAND"); 
ZEND; : 


D 


JE ARA ok ok sk ok NK Rok ok H xk + * * ж ж ж Ж Ж ж ж Ж Ж ж ж ж 


DECLARATIONS FOR IDENTIFIERS USED AS INTEHFACE VARIABLES 
LH OUEST AND RELEASE, AND AS VALUES PASSED IN 


INCLUDED IN PROGRAM BY XINCLUDE REQRELD; 27 


DECLARE ( /* REQUEST - RELEASE INTERFACE  */ 
ANYEROC, 


ty 
uz 
HITO 
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1O moO 
кз тш 
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DECLARE ( 


DECLARE (y 


) 
DECIARE ( 


) 
DECLARE ( 


) 


/* ADD A DEVICE x 
ELET, /%  DELETE A DEVICE. %/ 
| /* REQUEST FOR AM EXTENT  */ 
ERMF, /* PERMANENT TYPE FILE  */ 
PACE, /%* SPACE REQUESTED  */ 
MPF /# TEMPORARY TYPE FILE %/ 
ED BINARY (15) EXTERNAL; 
* OPERATION IDENTIFIERS FOR FILE MANAGER 
CLOSF, /* CLOSE FILE */ 
DIRAD, /* DIRECTORY ADD */ 
DIRDL, /* DIRECTORY DELETE * 
DIRRD, /* DIRECTORY READ */ 
DSTYF, '/* DESTROY FILE */ 
SEOF, /* END OF FILE */ 
INTEC, /* INTERFACE PROCESS IDENTIFIER 
OFENF, /* OPEN FILE x 
R 
S 
W 
E 


ranma y 
Hung > 
bri b< biti 

ka 
Es 
ba 
a 


Econ,  /% OPERATOR SYSTEM COMMUNICATOR 
* READ OPERATION * 

PCR, /* SPACE MANAGER IDENTIFIER */ 
RI * WRITE OPERATION */ 

D BINARY(15) EXTERNAL; 


OPERATION IDENTIFIERS FOR OPERATCR SYS 


'/* PASS TO OPERATOR */ 
BINARY(15) EXTERNAL; 


E 
OP, 


DCL 1 MESSAGE BUFFER BASED (MESSAGE), 
2 RELFASCE FIXED BINARY(15), 
2 ANSWER REQUEST BIT(1), 
2 MSG SENAPHORE FIXED BINARY(15), 
2 BUFFER LOCATION EOINTER, 
2 DATA FIELD, 
3 CHAR FIELD1 CHAR(8), 
3 CHAR-FIELD2 CHAR(8), 
3 CHAR FIELD3 CHAR(6), 
3 CHAR7FIELD4 CHAR(8), 
3 FIELD1 FIXED ELNARY (15), 
3 FIELD2 FIXED BINARY (15), 
3 FIFLD3 FIXED BINARY (15), 
3 FIELD4Y FIXED BINARY (15), 
3 FIELDS FIXED BINARY (15), 
3 FIELD6 FIXED BINARY (15); 
DECLARE 1 OUTEUL BUFFER BASED (OBUFPTR), 
2 OUI BUFF CHAR (13 
DECIARE 1 INPUT BUFFER hoe " (IBUFPTR), 
2 IN EUFF CHAR(80); 
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do IDENTIFIERS FOR FILE SPACE MANAGER */ 


k, 


*/ 
ID. */ 


COMMUN */ 


RATION IDENTIFIERS FOR OUTPUT CONTROLLER */ 





a Dm x ER eee EK E E E E * ж ж ж * 


DECLARATIONS FOR 
WITH ECB STRUCTURES. 


INCLUDED BY %INCLUED PCBDCL; 
DECLARE PRIMITIVE PCBDATA GENERIC 


IDENTIFIERS USED AS INTERFACE 


VARIABLES 


*/ 


NU ENTRY /* PUT OR GET CHARACTER TYPE DATA */ 


Be ae PINAME = 


PCB NUEBER*/ 


BIT (1) OR GET */ 
PIXÍD! SÍNARY I 4f FIELD IDENTIFIER */ 
CHAR TÀ FIELD * 


FIXE 


то. 


/* ERROR PARAMETER x/), 


LATEIXB ENTRY /* PUT OR GET FIXED BINARY DATA * 


(FIXED 


BIT (1) 


FIXED 
FIXED 
FIXED 


DATETR ENTRY /* PUT 
(FIXED 


n, 


/ 
BINARY,/* PINANE = PCB NUMBER*/ 
‚ /* ОРОТ OR OGET */ 

BINARY, /* FIELD IDENTIFIER %/ 
BINARY, /* DATA FIELD %/ 
BINARY /* ERROR PRAMETER */), 


OR GET POINTER DATA */ 
BINARY,/* PINAME = PCB NUEBER*/ 
, /* GPUT OR OGET x 


/ 
FIXED BINARY,/* FIELD IDENTIFIER */ 


POINTER 
FIXED BINARY 


ENTRY (1 BIT (2) 


LATEIT2 
FIXED 


BIT * OPUT 
РТХЕР, m jè 


x GD 
FIXED 


UB pos 


ENTRY /* FIXED BINARY (15) 


DATARYS 
uu 
BIT 
FIX D 
FIXED 


FIXED 


se 
A LED 


LATARYL 
GiT() 
DAN 
FIXED 
MÈ 
IXED 
DATEÍTI 
(BIT (1] 


BIT (1) 
FIXÈD 


FIXED" 


ENTRY /* FIXED BINARY (31) 


FIXED BINA 


ENTRY /* BIT(1) 


/* DATA FIELD * 
/* ERROR PRAMETER */), 


ARRAY DATA */ 
BINARY,/* PCB NUMBER*/ 
OR @GET */ 


FIELD IDENTIFIES x / 
BIN DESIEED ARRAY LCWER 


Li} ТТ 
Een Ca DESIRED ARRAY ш 


IT 
(z) ARR AY DATA FIELD *, 
INARY /* ERROR PRAMETER */), 


ARRAY DATA */ 

BINARY,/* EINANE = PCB NUMBER*/ 
(+ PUT OR OGET жу 

) SCARY ,/* FIELD IDENTIFIER */ 

BINARY, /# DESIRED ARRAY LCWER | 


LIMIT 
BINARY, Тү oe ee ARRAY UEPER 


ay 
FIXED pENALY г/т ARRAY DATA FIELD*/ 


BINARY ERROR PRAMETER */), 
ARRAY DATA %/ 
BINARY,/* PINAME = PCB NUYBER*/ 
/* OPUT OR OGET * 
BINARY, /* FIELD IDENTIFIER */ 
& 1), ,/* DATA FIEID 
7* ERR 


DATA */ 


DUNA ENDE = PCB NUFBEBRB*/ 
du * PUT. OR 3G 


TARY,/* FIELD EI DEÁTIFIER x / 
BINARY 


Sé 


BINARY OR PRAMETER */), 


/* DATA FIELD w 
/* ERROR PRAMETER */)); 
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DECLARE ECB_IIM FIXED BINARY(15) EXTERNAL; 
DECLARE( 


"ri 


) 
DECIARE( 


A 
1) EXTERNAL; 
FEOCESS STATUS IDENTIFIERS */ 


G 

P 

T 

x 

OBL , ye WAITING rOR A RESOURCE ¥*/ 
OBLKDI, /* BLOCKED AWAITING TIMER */ 
a 

o 

a 

Ar 


tT] 


) 
DECLARE( 


to 
ZN 


EDYA, /* WAITING FOR A PROCESSOR */ 

N, Ge RUNNING */ | 
SPENDED ' */ 

CER (8h, EXTERNAL: 


TAY Maa. MOB 


— 
O 
Ou 

au 
Gr 


/* * * FK k kkk kkk kkk k kk kkk kk kK 2 KE + K X 


DECLARATIONS FORK IDENTIFIERS USED AS INTERFACE VARIABLES 
WITH RCE HANDLER. 


INCLUDED BY  %INCLUDE RCBDCL: */ 
DECLARE ERIEITIVE RCBDATA GENERIC 


(RCB CHARDAT ENTRY /* PUT OR GET CHARACTER DATA * 
ES BINARY, /* RCB NUMBER = ae ius zo 
À i 


BIT AN #PUT OR #GET жу 
ixi D bI ARY, /* FIELD IDENTIFIER */ 
CHAR fe T BARA ARGUHENT JA 
E 
FIXED BINARY /* ERROR ARGUMENT */ ), 


RCB FIXBDAT ENTRY /*PUT OR GET FIXED BINARY DATA */ 
E. BINARY, /* RCB NUMBER - RESOURCE ae, 


NAME 
BIT ( {* #PUT OR #GET */ 
PEAD bi lARY, /* FIELD IDENTIFIER */ 
FIXED BINARY, 7 DATA ARGUMENT */ 
FIXED BINARY /* ERROR ARGUMENT */ ), 


RCB BITDATA ENTRY /* PUT OR GET "ib DATA */ 
(FIXED BINARY, /* RCB NUMBER = RESOURCE INTERNAL 


T(1),_/* #PUT OR #GET */ 

PIKÈD BINARY, /* FIELD IDENTIFIER */ 
IT (1), 45 DATA ARGUNENT */ 

FIXED BINARY /* ERROR ARGUÁENT */ )); 
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DECLARE( /* FIELD IDENTIFIERS ASSOCIATED WITH 
PRIMITIVE RCBDATA */ | 


/***FIELD | ASSOCIATED VALUES PASSED OR RETURNED 
IDENTIFIER | IN THE DATA ARGUMENT 
#ASSGND, /* VALID RCB NUMBER CHECK */ 
#CNT SZ,  /* COUNTER OR SIZE - FIXED BINARY * / 
ÉCRATR, /* PINAME OF CREATOR - FIXED BINARY _ */ 
#DINAME, og DEVICE INANE (FILE LOCATION) - Р.В. */ 
#DSTAT,  /* DEVICE STATUS ##GO OR ##HOLD SBIP( C 
QUE, — /# RETURNS EMPTY OR NOT EMPTY - BIT(1) #/ 
#OFILE,  Y/* OPEN FILE STATUS — ##NOAVL,##AVAIL, 
##READ, OR ##HWRITE; DEVICE AVAILABLE 
FOR ##TEMPF, ##PERMP, CK #TORPF FILES 
FIXED BINARY k / 
#OWNER, — /* PINAHE OF OWNER - FIXED BINARY  */ 
#PCTNAM,  /* EXTERNAL NAME OR PACK, CELL Ok TAPE 
| - FILE LOCATION - CHAR (8) */ 
Sp CUE /* RETURNS EMPTY Og NOT EMETY - BIT(1) */ 
#STÒR P, 7/* SHARED OR PRIVATE ##SHRD ы " 
| ga V. 
#TFILE,  /% FILE TYPE — #TENDF OR ##PER HA F.E xy 
#XNAME /* RES. EXTERNAL NAME - CHAR (8) k/ 
) FIXED BINARY EXTERNAL; 
DECLARE( /* FCB TYPES */ 
#DEVICE, 
#FILE, 
#РСТ, 
#SEMFOR 
) FIXED BINARY EXTERNAL; 
DECIARE ( 4% OPERATIONS FOR RCB FIND %/ 
EN DOC, 
JENDOP2S 
#FNDOP3, 
#FNDLOPL, 
#FNLOP5 
) FIXED BINARY EXTERNAL; 
DECLARE( /* STATUS IDENTIFICATION FOR QUEUED FILE OPERATIONS 
AND FILE USE STATUS IDENTIFIERS */ 
##AVAIL, /* FILE IS NOT CURRENTLY OPEN */ 
##NCAVL, Y/* FILE IS NOT CURRENTLY ACTIVE xy 
##PERMF, /* PERMANENT FILE  */ 
##PRIV, /* PRIVATE FILE */ 
##READ, /* READ OPERATION * 
#HREADA, /* READ — ANSWER REQUIRED - STATUS = 
I PROCESS! FILES HAVE BEEN SACRIFICED */ 
##READS, /* READ SACRIFICE — KO ANSWER REQ'D.  */ 
##SHRD, og SHARED FILE */ 
#8TEMPP, /* TEMPGRARY FILE */ 
##TORPF,  7* TENPORARY OR PERMANENT FILE  */ 
##WRITE, /* WRITE OPERATION */ 
##HRITA, /* AKITE ANSWER REQUIRED - SACRIFICED */ 
$#WRITH, /* WRITE HOLD - AWAITINC PERMISSION Ze 
##HRITS — /* WRITE SACRIFICE — NO ANSWER REQ'*L. */ 
) FIXED BINARY EXTERNAL; 
DECIARE( /* STATUS OF PROCESS W.R.T. FILE OPERATIONS X / 
##READR, /* ONLY READING FROM SHARED FILES x / 
## SACR 7* SACRIFICED dai 
##WKITR /* ERITING INTO SHARED FILES - NOT 
SACRIFICED */ 


) 


FIXED DINARY 


EXTERNAL; 
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DECLARE( 4* READY ACTIVE QUEUE IDENTIFIERS  */ 
Gs | 
) FIXED EINARY (15) EXTERNAL, 


-. “USER 
) EIT(1) EXTERNAL; 


DECLARE( /* RESOURCE VECTOR STATUS VARIABLES x / 
##ACCES, /* ACCESS ALLOWED si 
$4 ACORD. 7* PROCESS HAS ACQUIRED THIS DEVICE */ 
##NOACC, (/* ACCESS NOT ALLOWED */ 
##SACRF /* PROCESS HAS BEEN SACRIFICED MW.R.I. 
THIS DEVICE - MUST EEASSIGN */ 
) EIT(2) EXTERNAL; 


DECLARE ( /* QUEUE STATUS, QUEUE IDENTIFIER AND DEVICE 


STATUS VARIABLES */ 
##CLOSE, : 
##GO 
##HCiD, 
##OPEN, 
#GET, 
#PUT, 
#LEFT, 
#RIGHT 
) BII(1) EXTERNAL; 
DECLARE ( 


DEV L LIMIT, 
DEVOU LIMIT, 
FILE L LIMIT, 
FILE U LIMIT,. 
PCT L LINIT, 


LIMIT | 
) FIXED BINARY EXTERNAL; 


EE UR EK 3k OK ok x X Ok OX 0k ok ok ck KK KF EK KK K KK KK * 


DECLARATION AND PROCEDURE CALL NECESSARY TO OBTAIN A 
MESSAGE EUFFER AND KNOWLEDGE OF À PROCESS' OUN 

INTERNAL NAME. 

INCLUDED BY AINCLUDE RRMSG; A 


DECLARE MYNAME FIXED BINARY (15) STATIC INIT(0); 
CALL PRIWMITIVE_PCBDATA (HYNASE,OGET, QMSGPTR,MESSAGE, ERRCR) ; 


JR BRR RK Ok 3k ж ж ж Mo ho koko koko Жж ж ж ж ж ж ож ж ж ж ж ох ж 


DECLARATIONS FOR IDENTIFIERS USED AS INTERFACE VARIABLES 
BY OPERATING SYSTEK PRIMITIVES AND PROCESSES. 


INCLUDED BY AINCLUDE OSDCL; * / 
DCL CURRENT FROCESS(4) FIXED BINARY EXTERNAL; 
DECLARE ( 


Sco 
ARY EXTERNAL; 
(16) BIT(1) STATIC; 
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A A A Kw cx oso ue ok E këng k k ok k k k ok * 
DECLARATIONS FOR PROCESSOR REGISTERS, FOR SIMULATICN. 
INCLUDED BY ¿INCLUDE REGSTRS; */ 

DECLARE CEUREGS(4,10) FIXED BINARY (31) EXTERNAL; 


ES CERA EHE a ED ER LK EEE TERN N OG KR K k X k k Z ko X k x 


DECLARATIONS FOR AN ARRAY TO SIMULATE ENAELING AN 
INTERRUPT. 


INCLUDED -BY INCLUDE INTACTV; | */ 
DECIARE INTRUPT(16) BIT(1) EXTERNAL; 


MEF k k kk Ë kK Ke kK EP KR EK KK EK E+ EK K'X 


DECLARATION, FOR SIMULATION PURFOSES, OF THE INTERRUPT 
LOCATIONS. 


INCLUDED BY %INCLUDE INTSET; x / 
DECLARE INTRSET(16) BIT(1) EXTERNAL; 
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MODULE SPECIFICATION 


NAME: ERROR HANDLER TYPE: PROCESS 
PARAMETERS 
INPUT ^. OUTPUT . TYPE CONTENTS M 


Not Applicable: All communications handled via messages. 


dee "Tä CALLS MADE TO OTHER MODULES 
AME 





NAME _____PARAMETERS CC PURPOSE _________ 
Request Prccess I-Nane, a) $Error - Semaphore used to 
Semaphore, | identify messages for this 
Hessage Pointer, TOCCSS. 
Error Parameter b) Ss0buff - Semaphore used to 
obtain an output buffer. 
Release Process I-Name, a) $Opr IO - Semaphore used to 
Semaphore, | pass a message via the Cp- 
Message Pointer, erator System Communicator 
Error Parameter to the Computer Operator. 
PCBData EECEESS ESName,. Generic SEE point to Process 
Put/Get Identifier, Control Block module used to 


Field Identifier, enter or obtain data. 
Data Parameter, 
Error Parameter 


EXTERNAL CALLS MADE BY OTHER MODULES 
NAME PURPOSE 


a a EE oo ee mm ee ee ee a ee weem, «Dan SNEP — - - — ee “ Ñ “q a r - ee s - - - - - Guns ee ee we ee 


Not applicable for processes. 


DATA STRUCTURES USED 
N FIELD 


NAME _ ee EE ERE OS ELN ALE e 
Message me Based Dynamically allocated, pcinter 
Buffer qualified structure used for 
passing messages. 
Releasor Integer Internal name cf process 
releasing a message. 
Answer- Bit(1) Boolean indicating if answer 
Reguest reguired. 
Message-  Integer Semaphore to be used in the 
Semaphore answer. 
Buifer- Pointer Qualified I/O buffer contain- 
Location ing message to/irom operator. 
Field! Integer Internal nane cf process which 
caused the error. 
Field2 Integer The error condition code. 
Field3-6 Integer Not used. 
Char- Char (8) Not used. 
Field1-4 
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EN A a e 
Nct inplemented - Dumny module used to accept error messages 
and to pass a decoded message to the computer operator. 
Actual inplementaticn is SE on the hardware and the 
detecticn or correction techniques employed. 
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AINCLUDE NAMCHGR; 


(CHECK ( 


AINCLUDE SIMULTR; 


ERROR)): 
ERROR HANLLEE: 


MODULE IMPLEMENTATION 


/***** ERROR HANDLER — **»*/ 


PROC OETIONS (MAIN); 


SIM START(EROCESS ERROR HANDLER) 
GENLEC; | 


XINCLUDE 
ZINCLUDE 
INCLUDE 
«INCLUDE 


REQRELD; 


ON CHECK (ERROR). 
BEGIN; 


IF (EEROK == 0 
7 


END; 


AINCLUDE 


DO; 


THEN 
* NON RECOVERABLE CONDITION: ERROR DETECTED 
IN ERROR HANDLER * 


STCP; 


RAMSG; 


END; 


DCL ERROR FIXED BINARY INIT(0); 
DCL BARLWARE ERROR BIT(1) 

(EZNAME, ERRCOD) FIXED BINARY STATIC; 
iD PEED Peutan (18,8 D STATIC; 


O 
E 


DCL 
DCL 
DCL 


DCL 


NDX FIXED B 
CBPTE POINTER STAT 


ARY 
C : 


RCE_ERR_CODES (101 : 120) CHAR (40) STATIC 
INITIALT 


) ; 


! INVALID RCB TYPE SPECIFIED IN CREATE 
“SISIEN CONDITION: ALL RCB SPACE IN U 
t INVALID RESOURCE INTERNAL NAME SPECI 
"ATTEMPTED ACCESS TO AN UNALLOCATED R 

SS i i ED EL 
NE 


Fri 

to HEP Oy tU 
OH «ti ti w 
tibt et er? 
Mr s uz D 
am a a = 


N 
E 
t 
I A 
UNATHORTZ ED WRITE ACCESS 10 SHARE 
DEVICE IN HOLD SIATUS: PILE EE 
S 
T 
O 


t— tu 
tu = 
== 


"a 


"PERMANENT FILE CREATION UNAUTHOR 
t INSUFFICIENT SPACE FOR PERMANENT 
WRITE OPERATION TO FILE IN REAL 
"UNAUTHORIZED RESOURCE DESIKOY AT 
RESOURCE ACCESSED HAS BEEN DESTE 
‚ ATTENPTED LO MODIFY RCB ASSIGNED 


tih Prt sa pet toes 
юмге mi s 
man + tr 


Cj a 
PR 


a 
1 


"a 


+ 


be 
кюк INC Si = 


ki epil fri aki jon 


br} 
t 
` 


DCL ECE ERR_CODES (201 : 206) CHAR (40) STATIC 
INITIAL( 


"PROCESS NOT FOUND WITH 


INVALID PROCESS INTERNAL NAD 
MATIENETED ACCESS TO UNALLO 
IU A ID PCE PIELD REFEREN 
"INVALID OPERATION ON PCE 
! SPACE NOT AVAILABLE FOR A 

SPE 





DCL ERCCESS ERR, CODES (301 : 310) CHAR (40) STATIC 
' INVALID OP SYS COMM ACTION IDENTIFIER', 


r 
"UNIDENTIFIED RESOURCE X NANE IN MSG EUFF', 
(UNIDENTIFIED MESSAGE TO INPUT CONTRUILER', 
(INVALID ACTION IDENTIFIER TO OUTPUT CONT', 
(INVALID ACTION IDENTIFIER TO OUTPUT CONT!, 
(INVALID SEMAPHORE PASSED TO REL/REC ERIM', 
‘UNAUTHORIZED USE OF MESSAGE SEMAPHCRE!, 


f 
) ; 
DC FCREVER; 
CALL PRIMITIVE REQUEST (ANYPROC,SOBUFP,HESSAGE, ERROE) ; 
OBPTE < EUFFER LOCATION; 
SIM INTERRUPT PT 


CALL PRIMITIVE REQUEST(ANYPROC,$ERROR,MESSAGE, 
ERROR) ; 


SIM INIERRUPT PT 
CALL ERROR INTZRPRETER; 
IF HARDWARE ERROR THEN CALL HDER_ ERR_HNDLR; 
FLSE CALL SOFTWARE ERR_HNDLE 
END; 
SIM_END 
ERRCR INTERPRETER: PROC; 
/* IDENTIFICATION OF THE 
IS DETERMINED IN THIS 
LOOKUP. 
HARDWARE ERROR = FALSE; 
RETURN; 
END ERROR INTERPRETER; 
HDWE_ERR_HNDLR: PROC; 


ERROR TYPE AND CAUSE 
SUBROUTINE; I.E., TABLE | 


/* DETERMINATION OF RECOVERABLE/NON-RECOVERABIE 
AND THE APPROPRIATE ACTION INCLUDING A MESSAGE 
IO THE OPERATOR, IF NECESSARY, IS an 
RETURN; 
ENE HDRR ERR HNDLH; 
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SOFTWARE ERKR_HNDLR: PROC; 


/* APPROPRIATE ACTICN TO CORRECT THE ERROR ae 
PREVENT FURTHER ERROR IS TAKEN. FOR EXAMPLE 

USER PROCESS ATTEMPTING TO RITE a A RESERICTED 
FILE MIGHT BE TERMINATED. k*k / 


/*** IDENTIFY PROCESS AND EKROR CODE ***x*/ 
IF (FIELD1 = O) THEN PINAME = RELEASOR; 
ELSE PINAME =FIELD1; 
ER&COD = FIELD2; 


/*** SET UP MESSAGE FOR THE OPERATOR ***/ 
CALL PRIMITIVE AAA ce uGET,dXNAME,ENAKE, 


OBURPTA, BUFFER LOCATION = ROR) iog, 
LO ACTION OF CASE (INDX); 
ERSE (1 rm /* SOURCE ERROR CODES * 
FPTR -» OUT. BUF — PNAME | LL 
CB ERK E O DES (ERRČ D); 


ENLCASE; 
CASE (2 /* PROCESS ERROR COLES %/ 
OBUFPTR -> OUT BUFF = PNAME {| ! | 
РСВ 'ERR CODÈS (ERECOD) ; 
ENLCASE; 


ZE x /* PROCESS ERROR CODES */ 
F IR => OUT. BUFF = PNAME [| ' | 

PROCESS ERR C DES (ERRCOD) ; 
ENLCASE; 
END OF CASES 
MSG SEMAPHOR 
ANSRER REQUE 
FIELDI = $P 


/*** RELEASE MESSAGE TO THE OPERATOR ***/ 
CALL PRIMITIVE RE a te ,$0PR IO,MESSAGE, 
R 


ROR) 
/* ADD CODE TO TERMINATE PROCESS CAUSING THE 
ERROR, IF NECESSARY. */ 


EETURN; 
END SOFTWARE ERR, HNDLRE; 
END ERROR_HANDLER; 


E = $OBUFF: 
ST = TRUE; 
ASS 


76 





MODULE SPECIFICATION 


TYPE: PROCESS 


ee ee Se ge 


NAKE: OFEBATOR SYSTEM CONMUNICATOR 
PARAMETERS 
INPUT_____OUJIPUT TYPE CONTENTS 


o is ae Qs s ——_— —_— —_—_—-_—— 


Not Applicable: All communications handled via messages. 


EXTERNAL CALLS HADE TO OTHER 
NAME PAKAMETERS. 


Request Process I-Nane, 
Semaphore, | 

Message Pointer, 
Error parameter 


Release Process I-Nane, 
Semaphore,. 
Message Pointer, 


Error Parameter 


Find- 


l Process X-Name, 
Piname 


Process I-Nane, 
Error Parameter 


` 


MODULES 

PURPOSE 

a) $0pr_IO - Semaphore used to 
identiry messages for this 
process. 

b) $Obuff - Semaphore used to 
obtain an output buffer. 

a) $Outpur - ao used to 
send messages to the Cutput 
Controller. 

b) Input - Semaphore used to 
send messages to the Input 
Controiler. 

c) $Fileop - Semaphore used to 
send messages to the File 
Manager. 

d) $Error - Semaphore used to 
send messages to the Error 
Handler. 

e) $Yait - General message 
class identifier. 

f) $Ibuff - Semaphore used to 


free input buffers. 


Entry point to PCB Handler 
used to obtain the Internal 


name of a 
by externa 


rocess identified 
name. 


EXTERNAL CALLS MADE BY OTHER MODULES 
NAME PUR 


KPOSE 


ëtt сз эшш _ == =s r sss ma s A шы 


Not applicable for processes. 
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DATA STRUCTURES USED 
FIELD 


NAME ` TYPE — PURPOSE/VALUES Á». 2. 1 
Message mc Based Dynamically allocated, pcinter 
Buffer qualified Structure used for 
passing messages. 
Releasor Integer Internal name of process 
releasing a message. 
Ànswer- Bit(1) Boolean indicating if answer 
Request required. 
Message- Integer Semaphore to be used in the 
semaphore answer. 
Buffer- Pointer Qualified I/O buffer contain- 
Location ing message to/from operator. 
Fiela1 Integer Action identifiers: $$PASS for 


messages to other processes or 
the operator; $$0PCOM for mes- 
sages to this process. 


Field2 Integer Value equals $3OPRTR then 
message from operator; $$DONE 
or $$FAIL indicates task com- 
p erion code for messages sent 

o other processes. 


Field3-6 Integer Not used. 


Char- Char (8) Resource external naue in 
Fieldi answers to task messages. 
Char- Char (8) Not used. 

Field2-4 


"LEE EE 
A simplistic implementation has been completed to reify the 
concept cf using a focal point for system-operator communi- 
cations. Ihe exact hardware conr3guration; a repertoire of 
instructicns; and a complete Specification of functions to 
be performed are essentiai for a complete implementation. At 
present, the process passes messages ana initiates action 
messages upon receipt of instructions from the operator. 
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MODULE IMPLEMENTATION 


-=€ >er rl 


AINCLUDE NAMCHGR ; /***** OPERATOR SYSTEM COMMUNIC ATOR*/ 


(CHECK (ERROR)): 
OPERATOR SYSTEM COMMUNICATOR: PROC OPTIONS (MAIN); 


AINCLUDE SIMULTR; 
SIM _START (PROCESS_ OPERATOR SYSTEM COMMUNICATOR) 


DENEN рү Nox c VE x * * 
THE MIODULE SEEBVES AS THE FOCAL POINT FOR SYSTEM I 
OPE ETOR AND OPERAIOR TO. SYSTEM MESSAGES. IT INTE 
PREIS MESSAGES AND DETERMINES THE ACTION TO 3s TAK 
IN PWETIGULAR, IT ISSUES ACTION MESSAGES IO THE IN 
dr OUTPUT CONTROLLER, AND FILE MANAGER TC 
OR «DELETE -A DEVICE AND ITS ASSOCIATED INTERFACE PE 
AS WELL AS "PASSING MESSAGES FROM TIUENSESTIEINTO THE 


OPERATOR. 


AINCLUDE GENLEC; 
AINCLUDE CASESTü; 
AINCLUDE ECBECL; 
AINCLUDE REQRELD; 


ON CHECK (ERROR) 
BEGIN; 


IE ERROR >= O THEN 
NOCHECK (ERROR) ) : 
BEGIN ; 
ANSWER REOGEST = FALSE: 
MSG SEMAPHORE = 0; 
FIELD1 = RELEASOR:; 
PREG = ERROR: 
MSG SEMAPHORE = D 
CALI PRIMITIVE _RELEASE(ANYPROC, $ERROR, 
MESSAGE, ERROR); 
ERROR = 0; 


END; 
GO TO START; 


DO 


END; 
ENT; 
INCLUDE REMSG; 
CCL ERROR FIXED BINARY STATIC INIT (0) ; 
DCL EUFFER USED BIT(1) STATIC INIT("1'B); 
DCL EUFFER_POINTER POINTER STATIC; 
CALL COMMUNICATIONS _INITIALIZER; 
START: 
DC FOREVER; ^ 
IF EUFFER USED THEN DO; 
CALL PRIMITIVE REQUES 
SIH INTERRUPT PT 
BUFFER USED - FALS 


un FOINTER = BUPPER. LOCATION; 


T (ANY PROC, $OBUFF,MESSAGE,ERKOR) ; 


CALL PRIMITIVE, REQUEST (ANYPRCC,$OPR IO,MESSAGE,ERRCH); 


SIM INTERRUET PT 
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CALL MESSAGE INTERPRETE R; 
DO ACTION OF"CASE (I); 


CASE(1): 
/* PASS MESSAGE TO OPERATOR */ 
FIELD4 = BELEASOR; | 
CALL PRIMITIVE и , $OUTPUT,MESSAGE, 


ENLCASE; 


CASE (2): 
(2) V MESSAGE FROM OPERATOR OR SYSTEM */ 
DCL {START PT,NSG LEN,PINAME) FIXED BINARY (15,0); 
SG CODE CHART4) STATIC; 
DCL (MSG ITEM1,MS TEMA) CHAR(8) STATIC; 
LCL ECODE CHAR 1) STATIC 
DCL HSG_SEM FI BINARY. STATIC INITIAL (0); 
DCL SYS MSG CHAR (40); 
UCL ACTION FIXED BINARY STATIC INITIAL (0) ; 
IF (FIELD2 - $$0PRTR) THEN DO; /* MSG FROM OPERATOR */ 
/*** INTERPRET MESSAGE IN INPUT BUFFER  ***/ 
START PT = 3; 
MSG LEN = 


u; 
IBUFPTR = BUFFER LOCATION; 
MSG CODE = SUBSTR(IBUFPTR -> IN_BUFF, 
START PT,MSG LEN); 
START PT = 7; 
MSG LEN = 8; 


Be 
MSGTITEM1 < SUBSTR (IBUFPTR -> IN BUFF, 
STARI PI,MSG LEN); 
IF guse CODE = 'ADD ') THEN ACTION = $$ADD; 


LSE LI MSG CODE = "DEL ') THEN ACTION-$$LDELET; 
SEO MKO MESSEBGE TO SYSTEM POT NAME * 


CALL FIND A C RR ITEMI PIN 


FIELD1 = $$OPCON i 
aLL PRIMITIVE "RELEASE (EINANE SWAIT 
MESSAGE, EFROR) ; 


IF (ACTION -= “OY "THEN DO; 
/*** IDENTIFY RESOURCE TYPE ***/ 
START_PT = 1; 


ECODE = SUBSTR (NSG ITEM1,START FT, NSG LEN) ; 
IF (PCODE E 1^) THEN MSG SEM = $INPUT; 
LSE PCODE = '0') THEN MSG SEH = $OUTPUT; 
ELSE IF (PCODE="F') THEN DO; 
START PT = 153 MSG LEN = 8; 
HSG ITENM2= IBUFPTR -> 
START PI, NSG _LEN) ; 


= 
un 
Q 
= 
b 
= 
ur 
— 


BUFFER LOCATION, OB 
OBUFPTE -> OUT BUF 
MSG ITEM1 blo 'IN 
FIELDT = $$0PC 
FIELD2 - 


N == = 


ri onus 
ELD5,FIELD6 = O; 
CHAR FIEL _EIELD2, CHAR FIELD3, 


—CHAR 
CALL PRIMI “RELEASÈ(ANYEROC, SOUTEUI, 
MESSAGE, ERROR) ; 
BUFFER_USED = TRUE; 
END; 


FIELDS. ELE 


C > hy 
ele 
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IP ((ACTION == 0) € (MSG SEH b= 0)) THEN DO: 
*** SEND TASK MESSAGE TO PROCESS CONC ERNEL жж / 
ANSWER REQUEST = TRUE; 
MSG SEMAPHORE = $OPR lO; 
FIELD1 = $$0PCON; 
FIELD2 = ACTION; 
CHAR FIELD1 = MSG ITEN 
IF (PCODE = SC THEN diis FIELD2 - MSG ITEM2; 
CALL PRIMITIVE ELEASE (ANYPROC, , MSG_SEM,HESSAGE, 
E ; 


END; 
END; 


ELSE DO; yA MESSAGE ÁNSHER FROM' SYSTEM PROCESS */ 
/*¥** RELEASE MESSAGE TO THE OPERATOR ***/ 

ACTION = FIELD2; 

IF (ACTION SSDONE) THEN 


SYS MSG = TITLEN CONPLETED FOR"; 

ELSE SY3 MSG - 'UNAELE TO PERFCRM ACTION ON!; 
BUFFER LOCATION, OBUFPTR = BUFFER POINTER; 
DBUEDIS —> OUT SUFF = SYS MSG M 

CHAR FLELD!I || CHAR, FIELLI2; 
FIFLD1 = $50PCOH; 
FIrLD2 = SSPASS; 
ANSWER REQUEST = FALSE; 
HSG_SENAPHORE = 0; 


ETETIO3, FRETLBDUY, FIE LD5, FIELD6 = 0; 
CHAR ricLoi, CHAR FIELD2, CHAR. FIELD3, 
CHAR _FIELD4 = 
CALL PRIMITIVE „RELEASE (Anypaoc, e POUTPUT, MESSAGE, 
END: — USED = TRUE; 


ENICASE; 


BND CF CASES; 
END ; 
SEN” END 


MESSAGE INTERPRETER: PROC; 


7% INTERPRET MESSAGE TO DETERMINE PEQUTPED ACTION AND 
SETE CASE STATEMSNT INDEX x = Z 


IF (FIELD1 = $$PASS) THEN I = 1; 
ELSE IE (FIELDI = pSOPCOM) THEN I = 2; 
EL ERROR = 301; 
END HESSAGE INTERPRETER; 
MOHNUNICATIONS INITIALIZERS PROC; 


ET SSVTERENDESTS AND RELEASES TO INITIALIZE TUE 
S:SDLEH INPUT 7 OUTPUT CONFIGURATION d 


END COMMUNICATIONS INITIALIZER; 
END OPERATOR_SYSTEM COMMUNICATOR; 


Lo 
t= 


de 
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MODULE SPECIFICATION 


NAME: INEUT CONTROLLER 
PARAMETEES 
INPUT OUTPUT TypE ____ 


| PENE NIK ANE ar 


_CONIENIS__ 


TYPE: PROCESS 


COMES emm ER fer < r < s Qm — oe —— m m —! 


Not Applicable: All communications handled via messages. 


EXTERNAL CALLS MADE TO OTHER MODULES 
NAME _____ERBANEIERS________ 


Reguest Prccess I-Name, 
Semaphore, . 
Message Pointer, 
ETO Parameter 
Release Process I-Nane, 
Semaphore,. 
Message Pointer, 
Error Parameter 


Device Resource X-Name, 


Directory Access Identifier, 


Process X-Name, 


Page Table Length, 
Page Table Vector, 


Priority 
Interrupt Number, 
Located-Boolean 


PCBData Process I-Name, 


Put/Get Identifler, 


Fieid Identifier, 

Data Parameter, 

Error Parameter 
PCBLata Process I-Name, 
Ed | 
riela rdəentirier, 


Vector Lower Limit, 
Vector Upper Linit, 


Vector Parameter, 
Error Parameter 


ECBData Resource I-Nane 


илсе. Identifier, 


Field Identifier, 
Data Parameter, 
Error Paraueter 


PURPOSE _ 


Get Identifier, 


— — — s AA ee “see ee Se ee 





a) finput - Semaphore used to 
identify messages for this 
‘process. 


a) $Error - Semaphore used to 
Send a message to Error 
Handler. 

b) $Intdev - Semaphore used to 
Send a message to a newl 
селге IN ET a CE MEROCESS 
to identify a device inter- 
nal name. 

с) $Ibuff - Semaphore used to 
release input buffers to an 
interface process. 

d) $Opr IO - Semaphore used to 
send a message to Cperator 
System Communicator when 
passing messages from the 
Operator or replying toa 
message from Oprsys-Ccan. 


This module is invoked tc get 
data which identifies a device 
interface process and which is 
required to create a PCB and 
an RCB £or the interface pro- 
cess and device, respectively. 


Generic entry point to PCB 
Structures nodule to enter or 


obtain data. 


Generic entry point to PCB 
Structures module to enter or 
obtain data or portions cf the 
data stored as a vector (l.e., 
Resource Access Vector, Fage 
Table Vector, etc.). 


Generic entry point to RCB 
Handler module to enter cr get 
data concerning a resource. 
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RCBPUTQ Resource I-Nane, Entry point to RCB Handler 


Left/Rigat Queue, used to insert a process. 
Process I-Nane, Or a message on a specified 
Data Parameter, resource gueue by priority. 
MEPrlority, V Queues used by this process 
sage Pointer, are the message semaphore and 
Data Parameter, the ready Active queues, 
Error Parameter 
Find Resource Type, Entry point to RCB Handler 
i~Name kesourse X-Name, used to get the internal name 
Resource I-Nane, for the resource specified by 
Error Parameter Ele (file, device, etc.) and 
external name. 
interrupt Interrupt Number, This module is invoked tc en- 
Enabler Interrupt Save- able a specific interrupt or 
Vector enable all interrupts disabled 
by this process. 
Interrupt Interrupt Number, This module is invoked tce dis- 
Disabler Interrupt Save- able a specific or ‚ 
Vector all ok Ed Saving the 
Status of the interrupts in 


a save-vector for enabling. 


Create Resource Type, Entry point to RCB Handler 

RCB Resource X-Nanme, used to create an RCB of the 
Resource Owner tyre E Le enter descrip- 
D2 CNCE parameter, tor data in the EME LA E 
Access Identifier, RCB fields; and return the 
PCI Nane, M resource internal name. Not 
Dev/Int Identifier, all fields are used by each 
File Descriptor, type of resource. 


prle DESEE, 
Resource i=Nane, 
Error Parameter 


GETPCB Farent I-Nane, Entry point to PCB Structures 
Rgt-Sib I-—Name, used to create a PCB for a 
Process X-Nane, p enter data in the PCB 
Priorit ields; and return the process 


4 . 
System Process ID, internal name. 
iuit State Vector, 
Process I-Nan®, 
Cyclic Process Id, 
Error Parameter 


NE MAL CALIS WADE BY OTHER NODULES 


—-__ PURPOSE 


a Se  =s—— — Y = — 





is ee Qa qasa qasa um se sb qww Q rs ee oe 


Not applicable for processes. 
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DAIA > USED 


MAME FIFID_ ___TYPE____  PUBPOSE/VALVES ______________ 
Message zer Based Dynamically allocated, pcinter 
Buffer qualified Structure used for 
passing messages. 
Releasor Integer . Internal name of process 
releasing a message. 
Answer- Bit (1) Boolean indicating if answer 
Request | required. 
Message-. Integer Semaphore to be used in the 
Semaphore answer. 
Buffer- Pointer Qualified I/O buffer contain- 
Location ing message to/from operator. 


Fieldi Integer. a) $$0pcom - Messae from Oper- 
ator System Communicator. 
b) $$JCL - Message from inter- 
face process. 


Fiela2 Integer a) $5ADD - Task identifier to 
create an interface process 
and device HCB. 


Field3-6 Integer Not used. 


Char- Char (8) Identifies external name cf 
Field the device to create/destroy. 
Char- Char (8) Not used, 

Field2-4 


o ee sm Qm maa sa qm “Ses am ee eee ee ee ee Qa ee ee ee ee ee a s s a s <s ee ee eee ee ee ee ee eee ee eee eee oe 


Partially implemented process por ornin such functions as 
Creating a device and its associated interface process; 
passing messages from the oto OF to the Operator System 
Communicator, etc. Inplememtation limited until the harduare 
environment, JCL code, etc. are defined. 
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MODULE IMPLEMENTATION 


SSeS SS a ` ëm ër eme SA no OPNO, A An op n A e e e 


ZINCLUDE NAMCHGR; faros INPUT CONTROLLER *3xxx/ 
(CHECK (ERROR)): 


INPUT_CCNTROILER: PROC OPTIONS (MAIN); 


AINCLUDE SIMULTR; 
SIN START (PROCESS. INPUT CONTROLLER) 


ж ж Жж ж ж ж ж ж ж ж ж ж ж ж ж ж ж ж ж ж ж ж 


ж 
THIS MODULE HAS BEIN IMPLEMENTED TO CENTRALIZ 
FACILITATE THE "INPUT" OPERATIONS FROM VARIOU 
Ti PERFORHBS5S SUCH ELNCTECAS AS CREATING AND DE 
INTERFACE PROCESSES. AND (DEVICE NCB'S; ENTERIN 
ICEMEN TES JOS QUEUE; RELEASING MESSAGES TO T 
TIAIOR WHEN A JOS IS RuADY FOR CREATION; AND 
MESSAGES TO THE OPERATOR SYSTEM CONNUNICATOR. 


GINCLUDE GENLEC; 
XINCLUDE REQRELD; 
ZINCLUDE PFPCELCL; 
INCLUDE KCBICL; 
INCLUDE CASESTM; 


ON CHECK (ERROR) 
BEGIN; 
IF (ERROS 4-2 0) THEN DO; 
NCCHECK (ERROR)): 
BEGIN; 

FIELD1 = RELEA 
FIELD2 = ERROR 

MSG SEMAPHORE 
ANSWER REQUEST 
CALL PRINITIVE_ 


ERROR = 0; 
END: 
GO IO START; 


u; 
E(ANYPRCC,$ERROK,NESSAGE, 
ERROR) ; 


END; 
END; 


-AINCLUDE RRMSG; 


DCL ERROR FIXED BINARY STATIC INIT (0); 

DCL (5 OR P,NRPGS,PRI,PINAME,RINAME, CHILD »LNIRETNE) 
FIXED BINARY: 

DCL n DIE 


e 
С 
E 
am, 
ty 
> 
= 
db 
SE 
a Pen 
— ee 
pr” 
kim 
O 
en 
ы 
Hj 


(ak yé SUN INH 
DCL EGTABVEE ( FIXED BINA 
DCL STATE ES c (10 FIXED BINARY (31, 0) 
DCL RES VEC{SEM L LIMIT : PCT ULIMIT) BIT (2); 
DCL NRDEVICAS FIXED BINARY STATIC INIT (0); 
DCL TEME л m 
DCL DUMMY (16 
DCL I1 FIXED, BINAHY) 15) STATIC IN NIT(1), 
10 FIXED BINARY(15) STATIC INIT(Ú), 
-"NULE POINTER STATIC : 
NULE = NULL: 
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START: DC FOREVER; 
CALL PRIMITIVE. REQUEST (ANYPROC, $INPUT, MESSAGE, ERRCR) ; 


SIM INTERRUFI PI 


CALI MESSAGE BNTERPRETER; 
DO ACTION OF CASE 


CASE(1): 7* 
/*** 


CB 
CALL DEVICE DIRECTORY (CHAR_FIELD1, 


TE 


FE 


LL 


RR 


DOO: 


/*** 


RR 


I 

MESSAGE Los UPERATOR-CSYSTEM COMMUNICATOR | 
O ADD AN INPUT DEVICE 

GET DATA FROM THE DIRECTORY REQUIRED TO 

5 AN INTERFACE PROCESS AND DEVICE 


жжж у 


PXNAME,NRPGS,PGTABVEC,PRI,INT LS PTRHL FCUND) ; 
FOUND = TRUE) THEN DO; 
XNAME = CHAR FIFLD1; 
CALL PRIMITIVE PCBDATA(MYNAME,@GET,@CHILD, 
CHILD, ERROR) ; 
STATE VEC(1) - PGTABVEC (1) j 
STATE VEC - 1 C REGISTER */ 
CREATE PCB FOR INTERFACE PROCESS ***7 
CALL GETPC3 (MYNAME,CHILD,PXNAME,PRI TRUE, 
STATE VEC,PINAME,IO,ERROR) 


RESET FAMILY LINKAGE. KKK 
IF (CHILD == 0) THEN 
ALL PRIMITIVE -PCBDATA (CHILD,OPUT, 
"atb TSTBPINAHE, ERROR) ; 
CALL PRINITIVE_PCBDATA(MYNAME,@PUT,OCHILD, 
PINAME,ERKOR) ; 
CREATE AN RCB FOR THE DEVICE. ¥***/ 
CALL CREATE _RCB (#DEVICE RXNAME,PINAMF,IO, 
Deu TNR,IO,ÍO,RINARE, 
ERROR ; | 
/* SEP UP’ RESOURCE ACCESS VECTOR */ 
RES VEC = '00'B; — 
RES VEC (RINAME) = ##ACCES; 
RES VEC (SIBUEFF) = ##ACCES; 
RESTVEC (SINPUT) = ##ACCEs 
RES VEC {SSPACE) = ##ACCES 
RES VEC ($ERROR) = ##ACCES: 
RES_VEC($FILEOP) = ##ACCES; 
RESCVEC(SINTRPT) = ##ACCES; 
RES VEC($LNTDEV) = $RACCES] 
RES “VEC (SWALT) = ##ACCE 
CALL PRIMITIV OPCBDATA(PINAŠE, OPUT,O0RESVEC, 
SEM L LIMIT,PCT U LIMIT,RES VEC, EREOR) ; 
INSERT PAGE TABLE VECTOR AND NESSAGE EUFFER 
POINTER IN THE PCB, Soo) 
CALL PRIMITIVE PCBDATA (PINAME,@PUT,GERUVEC, 
11, NKPGS, PGTABVEC, ERRCA) ; 
ALLOCATE WESSAGE BUFFER SET (TEMP PTR) ; 
CALL PRIMITIVE PCBDATA(PINAHE,OPUT,GMSGPTR, 
TEMP PER, ERROR) | 
RELEASE MESSAGE TO THE NEW EROCESS IDENTI- 
FYING THE DEVICE INTERNAL NANE. EZE 
FIELD1 = RINAME; 
CALL PRIMITIVE RE LEASE (PINAME,SINTDEV, 
MESSAGE,ERROR) $ 
ALLOCATE AND RELEASE INPUT EUFFERS TO BE 
USED BY THE NEW PROCESS. GEN 
FI£LD1,FIELD2,FIELD3,FIELD4 = 0; 
MSG SEMAPHORE = 0; 
ANSWER REQUEST = FALSE; 
CHAR FIELD1,CHAR FIELD2 = ' '; 
ALLOCATE INPUT BUFFUER SET (IBUFPTR) ; 
BUFFER LOCATION = IBUFETR; 
CALL PRIMITIVE RELEASE (PIÑAME,¿IBUFF 
aL ESSAGP, ERPORJ ; 
ALLOCATE INPUT BUFFER SET (IBUFPTR 
BUFFER LOCATION = IBUFPTR; 
CALL PRIMITLVE_RELEASE(PINAME,$IBUFF, 
MESSAGE, ERROR); 
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/*** INSERT THE PROCESS ON THE READY ACTIVE 
QUEUE AND ENABLE THE DEVICE INTERRUPT. ***/ 
NRDEVICES = NRDEVICES + 1: 

CALL PRIMITIVE INTERRUPT ENABLER (INTRETAR, 

MMY 

CALL RCBPUTQ ¿REDYA 405, ,PINAME,IO,PRI,NULP, 
FIELDI = $S0BCOH: 

FIELD2 = $$DONE; 

END; 
ELSE DO; FIELD2 - $$FAI 
CHAR FIELD2 - ‘bap NAME'; 


E RELEASE ACTION TAKEN MESSAGE TO OPERATOR | 
SYSTEH COZHUNICATOR. 
CALL PRIMITIVE RELEASE(ANYPRCC,$0OPR IO, 
MESSAGE,ERROR) ; 


/* MESSAGE FROM OPERATOR SYSTEM 
COMMUNICATOR; DELETE A DEVICE */ 
CALL FIND_INAME (4DEVICE ,CHAR_ FIELD1,RiNANE, 
CALL PRIMITIVE RCBDATA (RINA AE, #GET #OWNER, 
PINAME,ERKOR) ; 
/* DISENABLE THE INTERRUPT, LOCATE AND FREE 
BUFFERS, DESTROY OUTSTANDING FILES 
OUTPUT MESSAGE TO OPERATOR CONCERNING 
USER PROCESS EFFECTED, D&STRCY DEVICE 
RCB AND PROCESS PCR, RELEASE ACTION 
DONE MESSAGE TO OPERATOR-SYSTEH 
COMMUNICATOR. ALL TO BE IMPLEMETED * / 
-/ SAVE JCL AND FILE INFORMATICN UNTIL ECF. 
IF. EOF, rs NEW JOB IN JÒB QUEUE 
Ad 


TNARY INIT( t); 
DCL SG LEN Io ы an (2) ; 
IBUFPTR”= BUFFER LOCATION: 
JCLCODE = SUBSTRTIBÜFPTR +> IN BUFF, 
HSG PT,MSG LEN): 
THEN DOT /*'OECOU MSC %/ 


IF (JCLCODE = aa) 
FIELD2 = $$0PRTR; 
FIELDI = S30PCON; 
ANSWER REQUESTS = FALSE; 
CALL PKIMiTIVz RELEASE(ANYPRCC,3OPR IC, 
Era: 
ND; 
/* ELSE DO; SAVE JCL FOR THE PROCESS, FILE INFO, 
OR ENTER IN JOB QUEUE It JOB EOF. P4 
ENDCASE; 
END OF CASES; 
END; 
SIM END 
МЕ55АСЕ INTPRPHLETER: PROC; 
Ee THIS SUBROUTINE DETERMINES WHO DID THE RELEASE ON 
SINPUT AND WHAT ACTION IS REQUIRED. 
IF ((FIELD1 < $30PCOH) & (FIELD2 = SSADD)) TENI- I: 
ELSE IT (FIZLD1= сз шы 1 ы RIOT T< os 
ELSE IF (FIELD1 - $$JCL) THEN I - 3; 
КОСЕ ERROR = 304: 
ND MESSAGE INTERPRETER: 
END INPUI CONTROLLER; 
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MODULE SPECIFICATION 


TYPE: 


Not Applicable: A11 communications handled via messages. 


EXTERNAL CALLS MADE TO OTHER MODULES 


PARAMETERS 


— — — —Y— —  —.= = — = — = — — x = ec X —— ee i -  —  — — —  a— ee did 


Request 


Release 


Find 
Piname 


Device 
Directory 


PCBData 


PCEData 


Beecess I-Nane, 
Semarpnore,. 

Hessage Pointer, 
PFrror Parameter 


Process i-Name, 
Semaphore,. 

Message Pointer, 
Error Parameter 


Process X-Name, 
Process I-Name, 
Error Parameter 


Resource X-Nane, 
Access Identifier, 
Prccess X-Name, 
Page Table Length, 
Page Table Vector, 
PETOLACY 

Interrupt Number, 
Located-Eoolean 


Proceso I-Nane, 
Put/Get Identifier, 
Field Identiiler, 
Data Parameter, 
Error Parameter 


Precess f-Nane, 
Ai Taentitier, 
Kieler Igentirier, 
Vector Lower Limit, 
Vector Upper Limit, 
Vector Parameter, 
Error Parameter 


PURPOSE 

a) $Output - Semaphore used to 
identify messages for this 
process. 

b) $SObuff - Semaphore used to 


obtain an output buffer. 
$Printg - Semaphore used to 
get next print job. 


$Error - Semaphore used to 
send messages to the Error 
Handler. 

$Intdev - Semaphore used to 
send message to an interr 
face process to identify a 
device internal name. 
$Obuff - Semaphore used to 
release output buffers. 
$Opr IO - Scmaphore used to 
send messages to Operator 
System Communicator in : 
reply to $£CECOM messages. 
$Putout - Semapnore used to 
send output commands to in- 
terface processes, 

$Fileop - Semaphore used to 
Send messages to tbe File 
Manager to open, read or 
destroy a file. 


c) 
d) 


e) 


£) 


Entry point to PCB Handler 
used to obtain the internal 
name of a process identified 
by externai name. 


Tnis module is invoked tc get 
data which identifies a device 
interface process and which is 
reguired to create a PCB and 
an RCB for the interface pro- 
cess and device, respectively. 


Generic entry point to PCB 
Structures module to enter 
obtain data. 


or 


Generic entry point to PCB 
Structures moduie to enter or 
obtaln darca or portions Ci the 
data stored as a vector (l.e., 
Resource Access Vector, Fage 
Table Vector, etc.). 
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RCBData 


RCBFUTO 
Find 
I-Name 
Interrupt 
Enabler 
Interrupt 


Disabler 


Create 
KCB 


GETPCB 


NAM 


Resource I-Name, 
"rar Icent cler, 
Field IGentirier, 
Data Parameter, 
Error Parameter 


kesource I-Name, 
Left/Right Queue, 
Process I-Name, 
Data Parameter, 
Priority, . 
Message Fointer, 
Data Parameter, 
Error Parameter 


Resource Type, 

hesourse X-Name, 
Resource I-Naue, 
Error Parameter 


Interrupt Number, 
Interrupt Save- 
Vector 


Interrupt Number, 
Interrupt Save- 
Vector 


Resource Type, 
Resource X-»hane, 
Resource Owner 

SA Cntr Parameter, 
Access identifier, 
PET Name d. 
Dev/Int dene imen, 
Nite Descriptor: 
File есер о 
Resource J-Nane, 
Error Parameter 


Parent I-Nane, 
Rgt-Sib I-Nane, 
Process X-Name, 
ee 

System Process ID, 
Tnit State Vector, 
Process I-Name, 
Cyclic Process Id, 
Error Paramecrxer 


Generic a roint to RCB 
Handler moäule to enter cr 


get 
data concerning a resource, 


Entry point to KCB Handler 
used to insert a process. 

or a messaye on a specified 
resource queue R e 
Queues used by this process 
are the message semaphore and 
the Ready Active queues. 


Entry point to RCB Handier 


used to get the internal name 


for the resource specified b 
ELE (file, device, etc.) an 
external name. 


This module is invoked tc en- 
able a A rie interrupt or 
enable all interrupts disabled 
by this process. 


TEE EE invoked to dis- 
able a specific or ! | 

all lu end saving, the 

status of the interrupts in 

a save-vector for enabling. 


Entry point to RCB Handler 
used to create an ECB of the 
type specified; enter dezcrip- 
tor data in the реле 
RCB fields; and return the 
resource internal name. Not 
all fields are used by each 
type of resource. 


Entry point to PCB Structures 
used to create a PCB for a 
oS enter data in the PCB 
fFlelds; and return the process 
internal name. 


t 


EXTERNAL CALLS WADE BY OTHER MODULES 
NAME -PURPOSE __ IA A o E 


Not applicable for processes. 


BANE ELE, TYPE, PURPOSE 
Message = Based 
Buffer 


— — - == — < eee es ee ie oc ee oe 


Bynanicalily allocatéq, pointer 
eat e ir Tor 
passing messages. 
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Output 
Admin 
Table 


Releasor 


Answer- 
Reguest 


Message- 
Semaphore 


Buffer- 
Locatıon 


Fieldi 


Field2 


Ее таз 
Field4 


Char- 
Field! 


Char= 
Field2-4 


interface 
Process 


Assigned 


File Nane 


MODULE D£SCRIPTION 


— - e €< me cui жб | mn ini (eg ik r asss tT s a sss — s AT A m s s “Qm s s m s ma 


Ehe Output CCntroller performs suca functions as 
End destrcying imkerface processes and device RC 
Mi o gning Output"Tales to the device; Opening an 

DI 


NEO IE PUE files: passing outbut buzrcrs5 «ith 


Integer 
Bit(1) 
Integer 


Pointer 


Integer 


Integer 


Integer 
integer 
Char (8) 


Char (8) 


Array 


Integer 


Bit (1) 


Integer 


Internal name of process 
releasing a message. 


Boolean indicating if answer 
required. 


Semaphore to be used in the 
answer. 


Qualifies an output buffer 
used to store data read from 
files and to pass data for 
output to an interface 
process. 


a) $$SOPCON - identifies a 
message from the Operator 
system Communicator. 

b) “SSTERM - identifies a mes- 
sage from the Terminatcr to 

rint a job. 

Cc) S$READ, DSEOF or $SOPENF - 
identifies message-tyre 
answer from Pile ilanager. 


a) $$PASS - pass message to 
the system operator. 

b) SSADD, SSDELET or $$510P - 
identifies task specified 
by the Operator System 
Communicator. 

Sper tte internal name to be 
printed; 


File record to be printed. 
Not used. 


File external name. 


Not used. 


This struecure 35 used tc 
determine availability of de- 
vices, the interface process 
internal name, and the file 
being printed cn that device. 


Process internal nane. 


Identifies available devices. 


File internal nane. 


system messages to the appropriate device; etc 
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MODULE IMPLENENTATION 


SP SES ES EO oe ee RE EE EE ee “ma ee G 


&INCLULE NAMCHGR; /***** OUTPUT CONTRCLLER ****>* / 
(CHECK (EBROR)): 


OUTPUT_CCNTRCLLER: PROC OPTIONS (MAIN) ; 


* ж ж zk ж Ж ж ж Ж ж ж ж ж ж Ж Ж KK KR < ж ж ж ж 
THIS PROCESS HAS BEEN IMPLEMENTED TO CENTPALIZE AN 
FACILITATE THE "OUTPUT" REQUIREMENTS TC VakıoUs Dé 
THAT MAY, AND GENERALLY DO, EXIST IN AN ALL APPLIC 
CONIUTES SYSTEM. THE PROCESS INTERACTS THROUGH TH 
OF MESSAGES TO AND FROM OTHER PROCESSES SUCH AS TH 
TERMINATOR, OPERATOR SYSTEY CONMUNICATCE, FILE MAN 
EREOR HANDLER AND VARIOUS INTERFAC PROCESSES. I 
ADDITION, ÍNVOKES SEVERAL OF THE PRIMITIVES TO 
aaa Una FUNCTIONS. * ж ож 
INCLUDE SIMULTR; 
SIH START(EROCESS OUTPUT _CONTROLLER) 
&INCLUDE GENLEC: 
ZINCLUDE EEQRELD; 
XINCLUDE CASESTM; 
AINCLUDE ECBECL: 
ZINCLUDE KCELCL; 
ON CHECK (ERROR) | 
e 
IE (EEROR ~= 0) THEN DO: 
NOCHECK (ERROR)): 
BEGIN; 
FIEID1 = RELEASOR: 
MSG SEMAPHORE = $OUTPUT; 
CALL PRIMITIVE RELEASE (ANYPROC,SE#ROR, 
MESSAGE, ERROR): 
ERROR = 0; 
END: 
GC TO START: 
END; 
END: 
oo za; RRMSG; 
DCL 1 OUTPUT ADHIN TABLE (10) STATIC, 
INTE PROCS FIXED BINARY INET ( (10) 0), 
2 ASSIGNED BIT(1) INIT((10) (1) “"O'B), 
2 FINAME FIXED BINARY INIT((10) 0); 
DCL CPR CUT DEV FIXED BINARY STATIC; 
DCL CUT JOES FIXED BINARY STATIC; 
DCL NREEVICES FIXED BINARY STATIC INIT (0); 
DCL I1 FIXED BINARY INIT(1); 
DCL NULE FCINTER: 
DCL NEWDEVICE FIXED BINARY; 
DCL I FIXED BINARY STATIC; 
DCL RECORD FIXED BIHAEY STATIC; 
DCL ERROR FIXED BINARY STATIC LNIT (0): 
DCL INAME FIXED BINARY: 
DCL EUFFEK USED BIT(1) EVA Na C TOR); 
PCL EUFFER POINTER POINTER STATIC; 
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IF EUFFER USED’ THEN DO; 
* GET AN OUTPUT BUFFER ¥*/ 
CALL PRIMITIVE | REQUEST (AN YPROC, $0BUFF,MESSAGE,EEROR) ; 


SIM INTERRUET, PT 


BUFFEF POINTER = р е LOCATION; 
MU LIE USED = FALSE 


call PRIMITIVE_ pat eue. $OUTPUT, NESSAGE,ERKOR) ; 
SIM INTERRUPT PT 


CALL MESSAGE INTERPRETER; 


A e OF CASE (1) ; 
SE 
/* dee eem SYSTEH CONMUNICATOR MESSAGE */ 
IF (FIELD2 = use THEN 
748% OUTPUT IHE MESSAGE. kx 
CALL PRIMITIVE RELEASE(OPR OUT DEV, 
MESSAGE,EREO 
ELSE DO; 


/*** PERFORM TASK SPECIFIED ¥***/ 
CALL OP COMM MSG HANDLER; 
IF ((NEWDEVICE -= 0) (OUT JOBS ~= 0)) THEN 
CALL START NEWJOB(NRDEVICE 


° 
END; 
ENLCASE; 
CASE (2 
Ee TERNINATOR MESSAGE 


$PUTOUT, 
OR) ; 


Qn 


* 
J»** TNCREMENT PRINT JOB COUNTER AND BETERYINE 
IF A DEVICE IS AVAILABLE. hh 
QUT JOBS - OUT JOBS * 1; _ 
DO I = 1 TO NBDEVICES WHILE (ASSIGNED p (1)) : ENE; 
IF (1 «= NRDEVICES) THEN CALL START NEWJOB(I); 
ENDCASE; = 
CASE (3): 
/* FILE MANAGER MESSAGE */ 
CALI FILE MSG HANDLER; | 
ENLCASE: 
END_OF_CASES; 
END: 
MESSAGE INTERPRETER: PROC; 
/* TETERAINE WHICH PROCESS DID A RZLEASE ON THE 
SOUTPUT SEMAPHORE AND SET THE CASE STATEMENT 
INDEX HK 
IF (FIELD - $$0FCOH) THEN 1; 
ESL IPSO TRUDI SSTERM) TEEN I = 2; 
ELSE I = 3: 
END MESSAGE INTERPRETER; 
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BET CONN OSG HANDLER: PROC 
"/* TAKE TUE REPROPRIATE ACTION; ADD A DEVICE AND 


I.E. 
EROCESS, DELETE A DEVICE AND INTERFACE 


AN INTERFACE 
PROCESS, OR STOP PRINTING A JOB. * 
DCL (S CR P,HRPGS,PRI,PINAME,HINAMNZ,CHIID,INTRNR,INDX) 
FIXED BINARY; 
DCL FOUND BIT (1); 
DCL (EXNAHE,EANAHE) CHAR (8) STATIC; 
DCL PGTABVEC (1) FIXED BI 
DCL STATE VEC (10) FIXED BINARY (31 9) ; 
DCL BES VEC (SPM L LIMIT : PCT U,LIMIT) BIT (2); 
DCL LUNTI6) BITT Ay: 
DCL TELE BER FOINTER; 
(% DETERMINE ÁCTION REQUIRED AND SET INDEX */ 
IF inf - $$ADD) THEN INDX = 1; 
LSE IF {FIELD2 = $SDELET) THEN INDX = 2; 
FLSt LF (FIELD3 = S$STOP) THEN INDX = 3; 
ELSE ERROR = 306; | 
DO ACTION OF CASE (INDX); 
AE /* ADD A DEVICE AND INTERFACE PROCESS. */ 
ЕХМАМЕ = CHAR FIELD1; 
CALL DEVICE DIRECTORY(RXNAME,S OR P,PXNANE,NREGS, 
PGTABVEC, PRI, INTRNR, FCUND) ; 
IF (FOUND = FALSE) THEN DO; 
/*** INVALID EXTERNAL NAHE x, | 
FIELD2 = $$FAIL; CHAR PIELD2 = 'BAD NAME'; 
ELSE DO; 
/*** CREATE PCB FOR INTERFACE PROCESS, SETUP 
FAMILY LINKAGE, AND CRÉATE LEVICE RCB. ***/ 
CALL PRIMITIVE_PCBDATA (MYNANE,@GFT,@CHILL, 
CHILD ERROR); 
STATE_VEC(1) = ESCH 
STATE VEC(2) = 1; * IC REGISTER ze 
CALL GETPCB (MYNAHE, CHILD, PXNAME,PRI, TRUE, 
STATE VEC,PINAME, (0) „ERROR) ; 
IF (CHILD == 0) THEN | 
CALL PRIMITIVE_PCBDATA(CHILD,QPUT, бшш 


PINANE, ERROR 
CALL PRINITIVE ren YNAME,@PUT,@CH Pie 


= PINAME, ERROR) ; 
CALL CREATE RCB(#DEVICE,RXNAME, FINANÈ, ( 0) 
S OR P,1' Lann (0), (Of RIMANE, E ROR) ; 
er UP RESOURCE VECTOR FOR EINAME */ 
LC = : 
RES_VEC (RINAUE) = ##ACCES; 
RES VEC (sPUTOUT) = ##ACCES; 
RES VEC(SERHOR) - ##ACCES; 
RESTVEC (SCBUFF) = ##ACCES; 
REST VEC (SINTRP ' Z Meces: 
RES VEC SIUIDEV PAGES: 
RESTVEC EE ##ACCES: T | 
CALL PRIHITIVE PCBDATA (PLNAME,@PUT,@RESVEC, 
SEM L LIHIT,PCT U LINIT,RES VEC,ERBROR); 
CALL PRIMIPIVE -PCBDATATPINAE,GPUT,QBRÜVEC, 
11,WR2GS,PGTADVEC,EEROR) ; 
/*** GET MESSAGE EUFFER FOR INTERFACE PROCESS */ 
ALLOCATE MESSAGE BUFFER SET (TEP ETR) ; 
CALL PRIAITIVE PCBDATA(PIEAME,GPUT,GHSGPTR, 
TESP DiRQERROR): 
/*** RELEASE MESSAGZ IO THE PROCESS IDENTIFYING 
SHE DEVICE INTERNAL NAME. * ** 7 
FIELD? = aRIHAHE; 
CALL PRIMITIVE _ RELEASE (PINAME, SINTDEV, 
MESSAGE, ERROK) 5 
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/*** GET OUTPUT BUFFERS AND INSERT ON THE 
AVAILABILITY QUEUE (RELEASE MESSAGES). ***/ 
FIELD1i,FIELD2, FIELD3,FIELD4 = 0; 
MSG SEMAPHORE = 0; 
ANSWER REQUEST = FALSE; 
CHAR FIELD1,CHAR FIELDŽ < ' '; 
ALLOCATE OUTPUT TUFFER SET (OBUFPTE) ; 
BUFFER LOCATION = OBUFPTR; 
CALL PRIMITIVE RELEASE (MYNAME, SOBUFF 
MESSAGE, ERROR} ; 
ALLOCATE OUTPUT BUFFER SET (OBOFPTR) ; 
BUPFER LOCATION = OBUFPTR; 
CALL PRIMITIVE RELEASE (NYNAME, SOBUFF 
MESSAGE ,ERROAS ; 
 /*** INITIALIZE LOCAL VARIABLES AND INSERT 
THE INTERFACE PROCESS ON THE READY 'A' 
^J QUEUE. ENABLE THE DEVICE INTERRUPT, ***/ 
NRDEVICES = NRDEVICES + 1; 
INT? PROCS (NRDEVICES) = PINAME; 


IF (NRDEVI Meke 1) THEN OPR OUT DEV = PINA 
CALL PRIMITIVE INTERRUPT ENABLER (INTRNE, CUM 


Rigi = NULL, 
REDYA,#0S, PINAME, (0) ,PRI,NULP, 


= Z 


CALL RCBPUTO (HRE 
(0) „ERROR) 1. 
NEWDEVICE = PINAHE; 
FIELD1 = $$0PCOI; 
ETELD2 = $$DONE; 
END: 
/*** RELEASE ACTION TAKEN MESSAGE TO OPERATOR 
SYSTEM COMMUNICATOR 
CALL PRIMITIVE RELEASE(ANYPROC, $0PR IO, HESSAGÈ, 
ERROR) ; 
ENLCASE; 
CASE (2): /* DELETE A DEVICE AND DESTROY THE 
INTERFACE PROCESS */ 
CALI FIND_INAME(#DEVICE,CHAR FiELDI,RINANE,ERROR) ; 
CALI PRIBITIVE_ CBDATA (RENAME , ‚EGET,#DINAME,INTENR, 
CALL PRIHITIVE INTERRUPT DISENABLER(INTRNR,DUP); 
* LOCATE BUFFERS AND DESTROY THEM, 
DESTROY RCB, PCB, MESSAGE CONTAINER 
AND ALL OUTSTANDING RELEASES/REQUESTS 
CONCERNING THE INTERFACE PROCESS */ 
ENLCASE; 
CASE (3): /* STOP PRINTING CURRENT JOB_ */ 
/*** GET INTERNAL NAME OF THE DEVICE AND 
INTERFACE PROCESS. | sk / 
RXNAME = CHAR FIELD1; 
CALL FIND -ENADE (# DEVICE , RXNAME,INAME, ERROR) ; 
CALL PRIčITIVE RCBDATA (ZNAME, sČET,$C4NEH, PINAHE, 
DO I < 1 TO NRDEVICES 
ILE (INTE PROCS(I) == BINAHE); END; 
/*** RESET LOCAL VARIABLES, RELEASE HESSAGE TO 
OPERATOR SYSTEM COMMUNICATOR, AND 
. CHECK FOR NEW JCB TO PRINT. kk / 
FINAME(I) = 0; 
ASSIGNED(I) = '0'B; 
FIELD] = $50PCON; 
FIEID2 = $3DONE 
CALL PRIMITIVE "RELEASE (ANYPROC, $OPR IO,MESSAGE, 
R 
IF (OUT_JOBS ~= 0) THEN en; 
ENICASE; 
END CE CASÈS; 
END OP_CUMM_NSG_HANDLER; 
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DCL 


R: PROC; | 
TH SUEROUTINE PASSES OUTPUT BUEFERS TO TEE 
AEPRCPRIATE OUTPUT DEVICE: CHECKS FOR OUTSTANDING 
JCBS TO PRINT; IF ANY, Gets THE FILE NAME FROM 
PRINT QUEUE AHD ASSIGNS THE FILE TO THE DEVICE 
FCR PRINTING. kkk 
FXNAME CHAR(8) STATIC; 
DO = T RDEVICES WHILE (FINAME (1) ~-= FIEID2); 
END; | 
/*** PASS OUTPUT BUPFER TO APPROPRIATE 
INTERFACE PROCESS. kok / 
IF (FIELD1 - $$READ) THEN DO 
KECORD = FIELD3 + 1; 
MSG SEMAPHORE = SOUTPU 
CALL PRIMITIVE RELEASE (LNTF PROCS (I), $PUTOUT, 
MESSAGE, r ERROR) j 
/*** GET ANOTHER OUTPUT BUFFER, INIT ALIZE 
MESSAGE BUFFER, AND RELEASE MESSAGE TC 
TLE MANAGER TO READ THE NEXT RECORD. Mek Y 
EUFFER LOCATION = BUFFER_POINTER; 
FIELDI < $SREAD; 
FIELD2 = FINAME(I); 
PTEDDS = RECORD: | 
FIELD4,FIELD5,FIELD6 = 0; 
CHAk FIELD1,CHAR FIELD2,CHAR FIEID3, 
CHAR ЕТЕ} =. 
MSG SEMAPHORE = SOUTPUT; 
ANSNER REQUEST = TRUE; 
C Ade, MU RELEASE TENUES ,SFILEOP, MESSAGE, 
EUFPER USED = TRUE; 
END; 
ELSE IF (FIELD1 = $SEOF) THEN DO; 
/*** PRINT TASK FINISHED: REINITIALIZE LOCAL 
VARIABLES, TEST FOR NEY PRINT JOR, RELEASE 
THE OUTPUT BUFFER, AND RELEASE MESSAGE TO 
FILE MANAGER TO DESTROY THE FILE HK / 
ASSIGNED (I) = FALSE; 
FINAME (I) ; 


IF (9U boss. “= 0) THEN CALL STAPT NERJOE(I); 
CALL PRIMITIVE _RELE ASE (BYNABE, SOBUFE, MESSAGE, 


ERROR); 
FIELDI = $$DSTYF; _ 
CALL PRIMITIVE_RELZASE (ANYPROC, SF 
© o ‚ЕВ 

n 


TD BOLD 
ROR) ; 


ELSE DO; /* FILE OPENED * 


/**®*' GET OUTPUT BUFFER, e iin NHESSNGE 
BUF LER, AND RELEASE MESSAGE TO THE PILE 


HANAGER TORF EAT THE FIRST RECORD, жжж / 
BUFFER: LOCATION ZERUEEER POINTER; 
КТЕ р = SPREAD: 

PIELD2 - FINAME (1); 

FISLD3 = 1; S р 

FIELDU, FIZLD>, FIELDO gs 

Chiral LEL DIC CAR FIELD2, CHAR. ЕТЕОЗ, 
CHAR FIsLD& = : 

MSG SEIHAFPHORL - SOUTPŮT: 

ANSHER. REOUBS IT = TRUE; 

CHE PSATETTTIVE RELEASE(ANYPROC, SFILEOP, 

MESSAGE,ERROR) ; 


pe е USSD = TRUE; 


END FILE MSG ÜBÄNDLER: 





Yur* THES SUBROUTINE OBTAINS THE EXTERNAL NAME CF THE 
FILE IO БЕ PRENTED FROM THESE CULUE ga AE 
ED RELEASES A MESSAGE, LIO TAB FILE MANAGER 
TO CPEN THE FILE FOR A READ OPERATION; UPDATES 
LOCAL VARIABLES TO REFLECT THE ASSIGNMENT, ANTP 
CHANGES OWNERSHIP OF THE FILE TO THE OUTPUT 


CCNTROLLER. kiks / 
START NEWJCB: PROC(INDEY); 
DCL INDEX FIXED BINA 
CALL ERIMITIVE REQUEST (ANYPROC, $PRINTQ, MESSAGE, ERROR) ; 
FIELLI = $3OPENF; 
FIELD2 = 43READS 
= $OUTPUT; 
= TRUE; 
RELEASE (ANYPROC, ¿ BFILEOP MESSAGE, ERROR); 
= T P 
INAHE = FIELD2; 
JOBS - 1; 
"RCEDATA (INANE, #PUT, #ORNER,HYNAME,ERROR) ; 


ышына > 
~j 


ASSIGNED (IN; 
FINAJE (INDE 
HE, = 0 


Cm by ttn be kri 


tej es 


sel 


SIM END 
END OUTRUT CONTROLLER; 
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NAME: INITIATOR 
PARAMETERS 
INPUT OUSPUT _ TYPE /—— 


MODULE SPECIFICATION 


CONTENTS __ 


TYPE: PROCESS 


4 


ze u EC A A A ee ee 


Not Applicable: Ail communications handled via messages. 


EXTERNAL 
N F 


— pon Em OMO 


Reguest 


Process i-Name, 
Semaphore, ` 
Message Pointer, 
Error Parameter 


CALIS MADE TO OTHER MODULES 
— PARAMETERS — PUR 


POSE 


a a one w > ae ae ee s G= ná 


a) $Iname - Semaphore used to 
limit tne number of proces- 
ses ın the system. Reguests 
decrement counter vwhrile re- 
leases by Terminator incre- 
ment the ccunter. 

b) $#Newjob - Semaphore used to 
identify messages to this 
process. 


Xdckxk ROK K K K koko Kr Module Implementation I[NCOMPLEet era KH KKK HK KH KK 


eK ARR EAR kee Dt icipated External Cal] gs ¥% 5% 3 ek 


PCBData 


ECBData 


RCBData 


RCBPUTO 


GETPCB 


Process I-Name, 
Put/Get Identifier, 
Field Identifier, 
Data Parameter, 
Error Parameter 


Process IS Name. 
Fa ы Жс сог, 
кте Iqentirter, 
Vector Lower Limit, 
Vector Upper limit, 
Vector Parameter, 
Error Parameter 


Resource I-Name, 
Put/Get Identifier, 
Field Identifier, 
Data Parameter, 
Error Parameter 


Resource 1> lame; 
Left/Rıght Queue, 
Process I-Nane, 
Data Parameter, 
Priority; o 
Message Pointer, 
Data Parameter, 
Error Parameter 


arent I-Nane, 
Ro. SID I— lane, 
PTOCODSEX-  Ydme, 
peach Ge 

System "Process ID, 
Init State Vector, 
Process I-Nate, 
celje Process Id, 
Error Parameter 


Generic ertry point to PCB 
Structures module to enter or 
obtain data. 


Generic entry point to PCB 
Structures module to enter or 
obtain data or porticns cr the 
data stored as a vector (1.e., 
Resource Access Vector, Frage 
Table Vector, etc.). 


Generic En point to RCB 
Handler mcáule to enter cr get 
data concerning a resource. 


Entry point to RCB Handler 
Used (o IN SeEt a process” 
EE EE 
resource queue En OL eS 
Queues used by this prccess 
are the message semaphore and 
the Ready Active queues. 


Entry point to PCB Structures 
lise cos roto PCE tor a 
s enter data in the PCR 
Fields; and return the process 
internal nane. 


Ji 








Create 
RCB 


Find 
I-Nanme ` 


RCEGETQ 


RCB-Find 


PT ERNAL CALLS MADE BY OTH 
КАЙ PÜRPOS 


ate man ann eee “Qha mon N ee ee 


Resource Type, 
Resource A~Name, 
Resource Owner 
SZ=-CHTE parameter, 
Access Identifier, 
PCT Nane, E 
Dev/Int Identifier, 
File Descriptor, 
File Descriptor, 
Resource I-Naue, 
Error Parameter 


Resource Type, 

kesourse X-Nane, 
Resource I-Name, 
Error Parameter 


Resource I-Name, 
Left/right Queue, 
Process I-HName, 

O pata Parameter, 
Hessage Pointer, 

Q Data Parameter, 
Found Boolean, 

Q Status Boolean, 
Error Parameter 


Resource I-Nane, 
Left/Rıght Queue, 
Find Operation, 
Queue Position, 
Process I-Name, 
Data Parameter, 
Data Parameter, 
Error Parameter 


Not asplicable for processes. 


Entry point to RCB Handler 
used to create an RCB of the 
type specified; enter descrip- 
tor data in the a 
RCB fields; and returr the 
nesource internal name. Not 
all fields are used by each 
type of resource. 


Entry point to RCB Handler 
used to get the internal name 
for the resource specified ay 
үр. (file, device, etc.) an 
external name. 


This entry. point to RCB Hand- 


AD 


lerma ase to renove- -aT rro- 
cess from the specified queue 
for the indicated resource. 
The data stored in the queue. 
are returned ir the process is 
found and the gueue status is 
also provided. 


This entry point to RCB Hand- 
ler is used to determine queue 
position of a process and put 
or get a copy of data. The 
sss sss positicn, or poth may 
e specified tc seiect a spe- 
cific process, any process at 
the specified position or a 
specific process at a speci- 
fled position. 


ER HODULES 


, 
m de a en 


ffe dg vg ANNE элш {зор +m me ie vg ce mE cam A Cusmam w-micc cee ee ee lle. a AO ee oe NND w 








NAME __FIFID TYPE - . PURPOSE/VALUES 0 0. 
Message === Based Dynamically allccated, pcinter 
Buffer qualified structure uSed for 
passing messages. 
Releasor Integer ` Internal name cf process 
releasing a message. 
Answer- Bit(1) Boolean indicating if answer 
Reguest reguired. 
Message- Integer Semaphore to be used in the 
Semapnore answer. 


` 


Buffer- Pointer Not used. 
Location 


Fieldi-6 Integer Use undefined. 


Char- Char (3) Use undefined. 
Fieldi-4 


KAKA KKK KR KAKAAKAddItional Structures Undefined eK odi sk skok ako 


MODULE DESCRIPTION 


A-—-——— oe ee eee ati a €— — is ee ee n sI s dm cnp uma Qa m Qk ee ee ee ce ee ee ee ce ce ce mmm «tate «tate ee ër wël «tate «siye «tate «— 


Initiator design and implementation is incomplete: job, 
types, JCI used, etc. must be known before inpleementation. 
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MODULE IMPLEMENTATION 


— — 


NCLUDE NAMCHGRE; /*****  INITIATOR **xx*x*/ 
EHECK (ERROR)): 
NITIATOR: PROC OPTIONS (MAIN); | 
INCLUDE GENLEC; 
INCLUDE PCBLCL; 
INCLUDE REQRELD; 
INCLUDE RRMSG; 
ON CHECK (ERROR) 
BEGIN; 


IF (ioca: a= un DO; 
NOCHECK (ER! Ok 
FIELD! - RELE Sor 
FIELD2 = ERROR; 
CALL PRIMITIVE aues. ,SERROR,MESSAGE, 


GO 10 START; 


AL 
1 
k 
% 
% 
4 


RIORITY) FIXED BINARY; 
irc INIT (0) ; 


START: | 
DC FOREVER ; 
KEE CHECK FOR AVAILABLE PCB SPACE ***/ 
CALL ERIHITIVE REQUEST (ANYPROC, $I1NAME, MESSAGE, ERROR) ; 


/*** GET NEXT JOB TO BE CREATED *** 
CALL fRIMITIVE REQUEST (ANYPROC,SNENJOE,MESSAGE, 


ERROR); 


/*** INTERPRET DATÀ FROM JOB QUEUE ***/ 
CALL UCL_INTERPRETER; 


/*** GET THE REQUIRED RESOURCES ***/ 
CALL GET REQUIRED RESOURCES; 
/*** CREATE A PCB FOR THE PROCESS ***/ 
/*** CALL CREATE PCB ¥**/ 
/*** FREE JOB QUEUE SPACE ***/ 
CALL NE BES: , $JOBQSP,MESSAGE, 
'R 


ERT THE PROCESS ON THE READY A QUEUE **/ 
#REDYA,#USER,P I NAMES, (0) PRIORITY, 
MSGETR, (0) , ERROR); 

END ; /* MAIN PROGRAM SCOPE */ 
JCL INTERERETER: PROC ; 


PTR ERERET SICH TO IDENTIFY REQUIRED RESOURCES 
AND CAPABILITIES 


/*** INS 
CALL RCBPUTO( 


RETURN 
END acl. INTERPRETER; 


BETSRECUTRED RESOURCES: PROC ; 
J" Venti dee THE PROCESS EEING 


DIPARRESDOURCES Hb REOUSSTED 4 
NECLSSARY AND SET UP ACCESS Vs 


WON 
OT 
же йез het 
O > = 
Se 
tm tr 
"T 


QUIRED RESOURCES: 
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NAME: 


PARAMETERS 
INPUT 


MODULE SPECIFICATION 


n жы m Q ct 


OUTPUT TYPE 


TYPE: 


A a —s sm << s m — a LE LEE = — m A A s — nn an =й== dme q e “r = s= ss = = sm < JN wama ws. — w = s nan 


Not Applicable: Ail communications handled via messages. 


EXTERNAL C 
NAME 


PARAMETERS 


ALIS MADE TO OTHER E 


Se ee A A A mama ce te cS ee te — “s ef e ek: E A BASE — ee Ís s s < = a - < S= am “m asam. Q Q m < A A EE VE ef A A A pe 


Request 


Process I-Name, 


-Semaphore, 


Message Pointer, 
Error Parameter 


URPOSE 
a) $Endjob - Semaphore used to 
identify messages to this 
Process, 


AcXkoxkexoexeeexeeeexeHodule Implementation Incoampleteerxekexk ek i kkk >k 


Xok XokcxoteteteiotetetteeeteksAnticipated External Cal] s* #3 45 lo WI dk Hx 


Find 
Piname 


PCBLata 


PCBData 


RCBData 


RCBEUTO 


Destroy- 
RCB 


Process X-Name, 
Process i-Name, 
Error Parameter 


Process I-Nanme,. 
FUL Geo mani jace; 
Field identifier, 
Data Parameter, 
Error Parameter 


Process Names 
Put/Get Identifier, 
Fiela Taentiftier, 
Vector Loser Linit, 
Vector Upper Limit, 
Vector Parameter, 
ЕГГОЕ Рагашеїег 


Resource I-Name, 
Put/Get Identifier, 
Field identifier, 
Dato parameter, 
Error Parameter 


Resource mi nane; 
Left/Right Queue, 
Prccess I-Nane, 
Data Parameter, 
PELOCECY C 

AE A Pointer, 
Data Parameter, 
Error Parameter 


Resource I-Name, 
PPpocessorI-Name, 
Prccess Vector, 
Error Parameter 


Entry point to PCB Handler 
used to optaın the internal 
name of a process identified 
by external name. 


Generic entry point to PCB 
Structures module to enter or 
obtain data. 


Generic entry point to PCB 
Structures module to enter or 
obtaın data or portions cf the 
data stored as a vector (1.8.5, 
RESOUrCS ACCESS Vector, Fage 
Table Vector, etc.), 


Generic dni point to RCB 
Handler module to enter cr get 
data concerning a resource. 


Entry point tc RCB Handler 
used to insert a process. 

or a message on a specified 
Jo SOI EE 
оцецес изеп Ly Сїт process 
are the message semaphore and 
the print queues. 


This entry point ito RCH -rand— 
ler is used to LOT aii ne. 
Ali processes on the KCB queue 
are identitied and returned to 
the calling prccess so that an 
error message may be sent to 
the Error Handler for each 
process in the ilst. 
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aa; 


RCBGETQ Resource I-Name, This entry point to RCB Band- 


Left/Right Queue, ler is used to remove a ro- 
Process i-Name, cess from the specified queue 
Q Data Parameter, for the indicated resource. 
Message Pointer, The data stored in the queue. 
Q Data Parameter, are returned it the process is 
Found Boolean, round and the queue Status is 
Q Status Boolean, . also provided. 

s Error Parameter 


d e e D dM I uuu sss 


EXTERNAL CALLS MADE BY OTHER MODULES 
PURPOS 
Ec y 


Not applicable for processes. 


DATA STRUCTURES USED 


NAME _____EIELD_ ____ZYBB —.—— PURPOSE/VBLUES o o—o—o.ooen.o..o 
Message === Based Dynamically aliccated, pcinter 
Bufier qualified structure used for 
passing messages. 
Releasor Integer Internal name of process 
| releasing a message. 
Answer- Bit (1) Boolean indicating if answer 
Request required. Ä 
. Message- Integer Semaphore to be used in the 
Semaphore answer. 
Bufrer- polnter Not used. 


Location 
Field1-6 Integer Use undefined. 


Char] Char (8) Use undefined. 
Field 1-4 


XckxXxexxxee xx x xxx xxxAàdgàitional Structures Unüaefined*3c kx xexxox 


ES E A s= 
Terminator design and implementation is incomplete. Note: 
tergination cf a process results in the termination of ail 
ependent processes; deallocating resources; and printing 
output iiles. 
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ën MO mem he = e ш Сә ee ee sj sr 


AINCLUDE NANCHGR; J***x** TERMINATOR xXxxoek/ 
CHECK EUN NE 
ERMINATCR: EZ2O0C OPTIONS (MAIN); 


AINCLUDE GENLEC; 

AINCLUDE ECEECL: 

“INCLUDE EEQRELD; 

ZINCLUDE RRÚSG; 

ON CHECK (ERROR) 
BEGIN; 

(Gine „= 0) THEN DO; 
NCCHECK (ERROR) ) : BEGIN; 
FIELD1 < RELEASOR; 

FIELD2 = ERROR; 
CALL PRIMITIVE" ab ELE ло I Ok 'SERROR, MESSAGE, 


ERROR 
ERROR = 0; 
GO 10 START; 
` END; 
ENT; 
END: 
DCI P I NANE FIXED BINARY; 
DCE ZRNO EIXELSBINARY STATIC INIT (O) ; 
DCL (INVALID,TERN FLAG) bIT(1); 
START: 
EC FOREVER: 
*** GET TERMINATION MESSAGES xxx; 
CALL PRINITIVE REQUEST (ANYPROC, SENDJOB, NESSAGE,EREOR) ; 
*** VERIFY THE MESSAGE **x/ 
CALL TEEMINATION_ VALIDATOR; 
FER VELEDO THEN SIART TERMIANATING **=/ 


TERM_FLAG = TRUE; 
DO WHILE (TERM. FLAG) 
"58 SPLECT THE PROCESS TO BE TERMINATED **x*/ 
CALL TERN SELECTOR; 


/*** INSERT CODE TO DETERMINE OUTPUT FILES ***/ 
/*** RELEASE MESSAGE TO OUTPUT CCNTROLLER 'C**/ 
CALL PRIMITIVE RELZASE(ANYPROC, $OUTEUT, MESSAGE, 


ERROR) ; 
/*** DESTROY THE PROCESS xsx/ 
/* ' CALL PRIMITIVS_DESTROY(PINAME,PROCVEC,ERRCR) ;*/ 
p RELEASE ERROR MESSAGES FOR ANY PROCESS 
QUEUED ON A RESOURCE JUST DESTROYED Xx / 
у жокк зе с xe INSERT CODE XxXxxxx 
/*** FREE 7HE JOB QUEUE ES жк: / 
CALL PRIMITIVE RELEASE(ANYPROC,$INAME,MESSAGE, 
ERROR) ; 
END; 
END: 
TERUINATICN VALIDATOR: PROC: 

/* THIS SUBROUTINE VERIFIES THE JOB TERMINATION 
REQUEST; I.E., THE VALIDITY OF PROCESS 'A' TO 
DESTROY EROCESS 'B'. * / 

INVALID=FALSE: 

END TERMINATION VALIDATOR; 
TERM SELECTICR: POC: 
/# THIS SUBROUTINE DETERMINES WHICH PROCESS OR 
MENBER OF A PROCESS'S FAMILY IS TO PÉ DESTHOYEL 
FIRST. */ 
TERM FLAG=FALSE; 
END TENS SELECTOR; 
END TERMINATOR; 
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MODULE SPECIFICATION 


NAME: FILE MANAGER TYPE: 


PROCESS 


PARAMETERS 
INPUT . | OUIPUI , iXYPE Á— 


Not Applicable: All communications handled via messáges. 


.CONIENTS . 


EXTERNAL CALLS MADE TO OTHER MODULES 


Put/Get Identifier, 


Pleld Iqentifler, 
Data Parameter, 
Error Parameter 


mie ——— PABANRTERS PURPOSE _______ 
Request Prccess I-Nane, a) $Fileop - Semaphore used to 
Semaphore,. identiry messages for this 
Message Pointer, process. 
Error Parameter 
Release Prccess I-Nane, a) S$Error - Semaphore used to 
Semaphore, | send messages to the Error 
Message Pointer, Handler. 
Error Parameter b) SIntdev > Semaphore used to 
sená message to an inter- 
face process to identify a 
device internal name. 

Cc) $Riilew - Semaphore used to 
release messages tc an in-' 
terface process to perform 
a read or write operation. 

d) $Opr IO - Semaphore used to 
send'a message to Operator 
System Communicator when 
repiying to a message from 
Op-Sys-Conmn. 

e) $Space - Semaphore used to 
Send messages to the File 
Space Hanager when a file 
FS destroyed or When a de- 

" vice is added or deleted. 

f) $Wait - Semaphore used to 
send a message to a process 
which sent an open-file 
eue 

g) $XXXXX - Semaphore used 
when Specified in answer to 
a message received. 

End Process X-Name, Entry point to PCB Handler 

Pinane Process I wäte, used to obtain tne internal 
Error Parameter name of a process identiiied 

by external nare. 

Device Resource X-Nane, This module is invoked tc get 

Directory Access Identifier, data which identifies a device 
Process X-Nane, interface process and wnich is 
Page Table Length, reyuired to create a PCB and 
Ра лек таре уесгог, an KCB for tne interface pro- 
Praonity cess and device, respectively. 
Interrupt Number, 
Located-Boolean 

PCBData Process I-Nace, Generic entry point to PCB 


Structures module to enter or 
obtain data. 
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PCEvata 


RCBData 


RCBPUTO 


Find 
I-Nane 


Interrupt 
Enapler 


Interrupt 
Disabier 


Create 
RCB 


DETPCB 


Destroy- 
RCB 


ProeesszI-Nane, 
Put/Get Identifier, 
Field Iaentifier, 
Vector Lower Linit, 
Vectcr Upper Limit, 
Vector Parameter, 
Error Parameter 


Resource I-Nanme, 
mut, Gok Identifier, 
Field Identirier, 
Data Parameter, 
Error Parameter 


Resource I-Name, 
Left/Right Queue, 
Process I-Nane, 
Data Pamaneter, 
BL 1 OD dey usi 
Message гошпгег, 
Data Parameter, 
Error Parameter 


Reseurce Type, 

Resourse X-Name, 
Resource I-Name, 
Error Paraneter 


Interrupt Number, 
Tnterrupt Save- 
Vector 


Interrupt Nunber, 
icterr upt save~ 
Vector 


Resource Type, 
Resource X-Name, 
Resource Owner 

Sí COGE Parameter, 
Access Identifıer, 
PCT Name, wo 
Dev/int Identifier, 
Filo pescriptor, 
File Descriptor; 
Resource I-Nane, 
Error Parameter 


Parent I= Nane, 
kgt-Sib í-Nane, 
Process X-Nane, 
een 
System Process ID, 
Tnat State Vector, 
Process .i-Name, 

eyelac Process Id, 
Error Parameter 


Resource I-Naue, 
Process TL-Name, 
Process Vector, 
Error Paraneter 


Generic entry point to PCB 
Structures module to enter or 
obtain data or portions of the 
data stored as a vector (i.e., 
Resource Access Vector, Fage 
Table Vector, etc.). 


Generic a point to RCB 
Handler moäule to enter cr get 
data concerning a resource. 


Entry point to RCB Handler 
used to insert a process. 

Or a message cn a specified 
resource queue Y 
Queues used by thiS process 
are the message semaphore and 
the Ready Active queues. 


Entry point to RCB Handler 
used to get the internal name 
for the resource specified b 
rye (£ile, device, etc.) an 
external name. 


This module is invoked tc en- 
able a specific interrupt or 
enable all interrupts disabled 
by this process. 


This moduie is invoked to dis- 
able a Specific or ! 

ali interrupts and saving the 
Status of the interrupts in 

a save-vector for enabling. 


Entry point to RCB Handler 
used to create an RCB cf the 
type specified; enter descrip- 
tor data in the appropriate 
RCB fields; and return the 
resource internal name, Not 
all fields are used by each 
tyre of resource. 


Entry point tc PCB Structures 
used to create a PCB for a 
process; center data in tbe PCB 
fields; and return the process 
internal nane. 


This entry point to PCH Band- 
ler is used to et an RCB. 
Aall processes on the Cr queue 
are identified and returned to 
ehesceallıngs preecess so that an 
error message may pe sent to 
the Error Handler for each 
process in the list. 
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RCBGETQ 


Resource I-Nane, 


Leit/Right Queue, 
Process I-Nane, 

MUaca/ Parametcr, 
Hessage Pointer, 


Q Data 


Parameter, 


Found Boolear, 
Q Status Boolean, 
Error Parameter 


RCB- 


Resource I-Nane, 


Transfer- Left/Right Queue, 


Queue 


Process I-Nane, 


Fron QO Status, 
To Q Status, 
Xfered Boolean, 
Error Parameter 


RCB-Find 


nesource I-Name, 


Left/night Queue, 


Find O 
Queue 


eratıon, 
Oosition, 


Process I-Nane, 
Data Parameter, 
Data Parameter, 
Error Paräneter 


. This entry point to RCB Hand- 


Шер ус шее to removo q pro- 
cess from the specifled queue 
ior the indicated resource. 
The data stored in the queue. 
are returned if the process is 
found and,the queue status is 
also provided. 


This entry point to RCB Hand- 
ler 1s used to transfer a pro- 
cess from the queue specified 
to the EE a queue. The 
Status of tne To-Queue before 
transfer and From-Queue after 
transfer are returned. 


This entry point to RCE Pand- 
ler is used to determine queue 
position of a process and put 
Or get a copy of data. The 
grocess, position, or both may 
be specified tc select a spe- 
CIT lC process; any process at 
the specitied rosition or a 
Specarmte pr oOocossSs ata Speci- 
fied position. 


EXTERNAL CAILS MADE BY OTHER MODULES 


NAMES 


A A ee A сшште < T шшш» 


Not applicahle for processes. 


LD 


Releasor 


Answer- 
Request 


Message- 
Semaphore 


Bufier- 


Location 


Fieid1 


SIKUCTUEFS US ED 
PIE 


___BURPOSE__ 


A ee Se a s eee ee ee ma s Àm cg". mas mem ee Ek ee ee CES cei eee ee 


Integer 
Bit (1) 
Integer 


Pointer 


Integer 


A A ER zë O A MT AO O ee AA AA Qs [s ee E an 


A A A A AA ee o e A A sme eds 


Dynamically allocated, pcinter 
qualified structure used for 
passing messages. 


internal name of process 
releasing a message. 


Boolean inlicating if answer 
required. 


Semaphore to be used in the 
answer. 


Qualified I/O butter contain- 
ing data read from a filc cor 
to` be written into a file. 


a) $$OPCOM - Message fron, 
Operator System Communica- 


tor. 

b) S$INTPC ~ Message from in- 
terface process. 

cns ODD = Message to cpen 
a tale, | 

d) PLREAD Or "SSURITE ~- Message 
to do a file read or write 
operation. 

C) $ CLOSE =~ Message to close 
a tile. | 

f) SSDSTYF - Message to de- 
SUELO y a AL ES 
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Field2 Integer a) $$OPRTR - Operator message 
reply to a reguest for ac- 
cess to a restricted file. 

b) $3ADD or $»DELET — SSCPCOM 
message to add or delete a 
device and interface pro- 
Се55., š ; 

c) File internal name identi- 
fying a file to be clcsed 
accessed on a Lead or write 
operation, or aestroved.. 

d) ##READ or ##WRITE - benti- 
fies гүре access requested 
In a fiie open message. 

e) $$bEOF - End of file read. 

f) Directory entry nuuber. 


Ficld3 integer a) Record number to be read 
from or written into. . 
b) File length for files in 
the directory for the PCT. 


Ficidi Integer Device internal name identi- 
fied in $5INTPC message. 

Field5 Integer a) $$TEMPF or $$PERMF - iden- 
tified in $SINTPC messages. 

Field6 integer a) ##SHRD or ##PRIV - Identi- 
fied in $$INTPC messages. 

Char- Char (8) File or device external nane. 

Ficldi 

Char= Char (8) Pack, tape, Gell, etc. (ЕСТ) 

Field2 external name. 

Char Char (8) Not used. 

Field3-4 


Шош сит он a nn en 
File Manager has been inplemented to perform the standard 
file operaticns of opening, closing, destroying, reading 
Mron and writing into files. Creating files is performed by 
an independent module to prevent file creation when space is 
not available trom interfering with the other file opera- 
tions. In addition, this process controls the ailocaticn of 
files and prevents deadlocks using preemptive techniques; 
Me, ONCE a process has been assigned access to a file if 
Subsequent oren requests cannot be satisfied immediately and 
a potential aeadlock exists, the process's files are sacri- 
Esced (can pe allocated to other processes) until such time 
as all files required can be allccated concurrently. Inter- 
face processes and device RCB'S are also created and 
destroyed by this process. 
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MODULE IMPLEMENTATION 


A AA r < — A ¿= — a = eee mmm mme me ee ee ee ee 


INCLUDE NAMCHGR; /****x PILE MANAGER **x**x*/ 
(CHzCK (ERKOR)): 


FILE MANAGER: PROC OPTIONS (MAIN); 


AÁINCLUDE SIMULTR; 
SIM_ STARS (EROCESS_ FILE MANAGER) 


&INCLUDE GENLEC; 

ZINCLUDE AEQRELD; 
%INCLUDE CAŠESTM: 
4INCLUDE RCEDCL; 

ZINCLUDE PCED 


CL; 
DCL ERRCR FIXED BINARY INITIAL(O); 
DCL I FIXED BINARY; 
CCL RCBNR FIXED BINARY; 
DCL PCTNANE CHAK (8) ; 
DCL NULP POINTER; 


OS CHECK (ERROR) 
BEGIN; 


IF (ERROR == 0) THEN DO; 
IELDI = RELEASOR; 

FIELD2 = ERROR; 

IF (ERROR = 112) THEN Do; 
ANSWER REQUEST = TRUE 
HSG SEHAPAOKE < SFILEOP; 

END; 
ELSE DO 


ANSWER REOUEST = FALSE; 
MSG SEMAPHORE = D: 


END; 
(NOCHECK' (ERROR) ): 
BEGIN; 


ERROR = @ 
CALL PRIMLTIVE, RELEASE(ANYPROC,SERROR,MESSAGE, 
ERROR) ; 
END; 
IF (ERROR == 118) THEN GO TO START; 
END: 
END; 
&INCLUDE RRHSG; 
START: 
DC FOREVER; 
CALL PRIMITIVE _ REQUEST (ANYPROC, $FILEOP, MESSAGE, ERROR) ; 
SIM, INTERRUPT PT 


CALL AESSAGESINTERPRETER(I) ; 
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DO_ACTICN_OF CASE(I); 


CASE(1): 
/% MESSAGE FROM OPERATOR SYSTEM COMMUNICATOR */ 
CALL OP COMM MSG HANDLER; 
ENLCASE; 
CASE (2): 
/* MESSAGE FROM DEVICE INTERFACE PROCESS 
PERFORM SUCH ACTIONS AS UP DATING THE 
MASTER FILE LIST, FILE DIRECIORY ON THE 
DRUM, PACK, TAPE, ETC., RELEASING MESSAGE 
TO STORAGE MEMORY MANAGER. */ 
IF (FIELD2 == $$EOF) THEN DO; 


/*** ТЕ EXISTING FILE IS TENPORAY THEN DELEIE IT 
T FROM THE DIRECTORY ELSE CREATE AN RCB */ 
IF (FIELDS ~= $$TEMPF) THEN DO; 
ALL PRINITIVE RCEDATA (FIELD4,#GET, #PCTNAN, 

PCTNAME, ERROR); 
CALL CREATE RCB(#FILE,CHAR FIELD1,MY NAME 
FI£LD3,FIELDÓ, PCTNAME, FIELD4,##AV 

##PERNF, RCBNR, ERROR a 
š 1 


Hur 
MES 


ELSE DO; 
ANSWER _REQUEST = FALSE; 
EE ED 
CALL PRIHITIVE -HÉLEASE (RELEASOR, $RFILEW, 
E MESSAGE „ERROR) ; 


pito GET THE NEXT DIRECTORY ENTRY ***/ 

FIELDI = ¿$DIRRD; FIELD2 = FIEID2 + 1; 

ANSWER REQUEST - TRUE; 

CALL PRIMITIVE_RELZASE (RELEASOR,S$RFILEN, 
MESSAGE,ERROR); 


rj 


END; 
pee EOF: CRSEATS AN RCB FOR THE PCY AND RELEASE >- 
A MESSAGE TO THE FILE SPACE MANAGER KEN, 


ELSE DO; 
FIELDI = S$OPCOM; FIELD2 < $$DONE; 
CALL PRIMITIVE RCBDATA (PIELDY, #GET, #X¥ NAME 
CHAR FIELD, ERROR) | 
CALL PRIMITIVE -RCBDATA (FIELD4, #GET, #PCTN M, 
CHAR FIELD2, ERROR) 
CALL CREATE _RCB (#PCT CHA RF IELD3, 


RCBN 
CALL PRIMITIVE RELEA 


R, 
Si 
FIELD1 - $2ADD; ETE 
CALL PRIMITIVE RELEASE 


л 


FIELD], pt 
CHAR. PS 


ENECASE: 
CASE (3): 
/* MESSAGE FROM A PROCESS TO DO A FILE OPEN, 


SAG 
CLOSE, DESIROY, READ, WEITE WETE. VA 
PILE OU PERATION CCHTROLLER; 


EL 
LD2,NYINANE, 
ETECDY, (0) „FIELDS, 


LE 
Li. 
OC ,$0PR IO,MESSAGE, 
OR) ; 
RC 
no 


tit? Ej 


R: 
$SPACE, MESSAGE, 


ELD2,FIELD3,FIELD«4,FIELD5,FIELD6 < 0; 
Ши тп; CHAR FIELD3,CHAR FIELLU 


=. x» hij 


CALI 
FNLCASE; 


END OF CASES; 


SIM END 
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MESSAGE INTERPRETER: PROC SE 
/* DETERMINE WHICH PROCESS DID A RELEASE ON SEILEOP | 
AND SET THE CASE STATEMENT INDEX 


DCL I FIXED BINARY; 
IF epee -> FIELDI = $$OPCOM) THEN 
LSE IF F (MESSAGE -> FIELD1 = S$INTPC) "onen nee 


RETURN; 
END MESSAGE. INTERPRETER; 


OP COHN MSG HANDLER: PROC 
—4% THIS SUBROUTINE PERPORMS SUCH FUNCTIONS AS CREATING 
OR DESTROYING A DEVICE RCB AND AN INTERFACE PRCCESS, 
UP DATING THE PACK,TAPE, ETC MCUNTED ON THE DEVICE, 
AND DETERMINING ACTION TO EE TAKEN ON A REPLY TO A 


USER'S REQUEST FOR FILE CHNERSHIP ON A SHARED FILE*/ 
DCL RANAME, EXNAHE) CHAR (8 la 
DCL (S OR P,NRPGS,PRI,PINAME,RINAME,CHILD,INTRNR,INDX) 
FIXED BINARY; 
DCL VALX BIT N: 
DCL PGTABVEC(1) FIXED BINARY: 
DCL STATE VEC (10) FIXED BINARY (31,0); 
DCL RESVIT(SEM L LIMIT : PCT U LIMIZ) BIT (2); 
Der Lud (16). B1T (1); 
DCL TEME PTR POLNTER; 
DCL I1 FIXED BINARY INIT(1); 
/* DETERMINE ACTION TO BE PERFORMED AND SET INDEX */ 

IF (FIELD? = FSOPETR) THEN INDX = 1; 

LSE IF (FIELD2 = $$ADD) THEN INDX = 2; 

ELSE IF (FIELD2 = S3$DELET) THEN INDX = 3; 
ELSE ERROR = 309; 

DO_ACTICN OF  CASZ(INDX); 

“CASE (17: /* MESSAGE FROM OPERATOR %/ 

/ ADD CODE %/ 
ENDCASE; 


CASE (2):  /* ADD A DEVICE, INTERFACE PROCESS AND 
PCT IF APPLICABLE * 
RXNANE = CHAR_FIELDI; 


/*** GET DATA REQUIRED TO CREATE THE INTERFACE 
PROCESS AND DEVICE RCB FROM THE DEVICE 
DIRECTORY. Fokk 

CALL DEVICE_DIRECTORY (RXNANE,S -QR P,EXNANME, 
NRPGS,PGTABVEC,PRI,INTRNR,VALX); 
IF (VALX = FALSE) THEN DO; 
IELD2 - $$FAIL; 
CHAR FIELD2 = 'BAD NAME! 
CALL PRIMITIVE _RELEASE (ANYPROC, $OPR IC, 
MESSAGE, ERROR) ; 
END; 
ELSE DO; 
/*** CREATE INTERFACE PROCESS ANL SET FAMILY 
LINKAGE. ak / 
CALL PRIMITIVE PCBDAVA (MYNAME,@GET,@CHILD 
CHILD,ERROR) ; 
STATE VEC(1) = PGTABVEC (1) ; 
STATE VEC (2) = 1: 
CALL GETP B(HYNABE CHILD,EXNAME,PRI,THUE, 


ЕХ 
(EC, PIÑABE, (U) ERROR); 
IF (CHILD == 0) THE 


CALL PRINITIVE "BCEDATA (CHILD, @PUt 
“OLFESIB,ELNAMS, ERROR) ; 
CALL PKINITIVE PCBDAIA A(MYf ANE, OPO, 
@С RECH, 
CALL CREATE_RCB(#DEVICE,RXNANE, PINAME, (0) 
OR P,CHAR FIELD2,INTKNK, (0), (0), 


S 
RIFAME, ERROR]; 
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/* SETUP RESOURCE VECTOR FOR PINAME */ 

RESVEC = !'00!B; 

RESVEC RINANZ) = ##ACCES 

RESVEC(SFILEOP) = ##ACCES; 

RESVEC SERROR) = ##ACCES: 

RESVEC(SRFILEW) = ##ACCES; 

RESVEC SKALI), = ##ACCES 

RESVEC(SINTDEV) = ##ACCES; 

RESVEC(SINTRPT) = ##ACCES: 

RESVEC (SOBUFF) = ##ACCES: 

RESVEC (SIBUFF) = ##ACCES; 

CALL PRINITIV E EE @PUT 
@RESVEC, SEN E LIMIT PCT l LIMIT, 
RESVEC ERROR) T 

CALL PRIMITIVE PC DATA (PINAME, @PUT, 


OBRUVEC,IT,NRPGS,PGTABVEČ, ERROR); 


[FF GET -MESSAGE BUBBER FOR THE PROCESS KARE / 
ALLOCATE MESSAGE BUFFER SEV (TE EuP PITA); 
CALL PRIMITIVE “PUBDATA (PINANE, PUT 
 OMSGPTR,TENP PTR, EERCR) ; 


FE RELEASE MESSAGE TO THE PROCESS IDENTIFYING 
THE DEVICE INTERNAL NAME. ER N 
FIELD1 = RINAME; 
CALL PRIMITIVE NT SINTDEV, 
ESSAGÈ, EZKOR) 
/*** ENADLE THE DEVICE INTERRUPT жж / 
CALL O A nj; 


NULP = NULL; 
/*** ENTER THE PROCESS ON THE READY "A! QUEUE */ 
CALL RCBPUTO (#REDYA,#OS, PINAME, (0) ,ERI, 
NULP, (6) , ERRC 
IF (CHAR_FIELD2 = "NO MOUNTS THEN TO: 
/* RELEASE MESSA O E SYSTEM COMM. */ 
FI ZD) ED 
TIVE “RELEASE (ANYPROC, 
,UESSAGE, 


TEREACH PROCESS TO READ 
¡Y ENTRY. ` 
RRD; 


I TRUE, 
E RELEASE (ETNANE SRFILEM 


GË, EEROR) 


LEN 


Y= DELET A DEVICE AND DESTROY THE 
TNT PREACH PROCESS N 
CALL FIND_INABE(WDEVICE, CHAR FIELD1,RINAME, 


ERK 
CALL PRIMLITIVE RCEDAT (RINAME,#GET #DINANE, 
JNTRNHE, REO 
CALL PRIMITIVE INTERRUPT _VISEÑABLER (INTENE, 


/* DETERMINE FILES ASSOCIATED WITH THE 
DEVICE AND THE PCT; DESTEOY RCE'S */ 
ENECASE: 
END OF CASES 
END OP-.COHBN. NS" HANDLER: 





R 


FILE OPERATION CONTROLLER: PROC; 
DCL (DATA,DUHHY,POSIT,FSIZE, INAME) FIXED BINARY; 
DCL (FINAME, PINANE, READ WRITE FIXED BINARY; 
DCL NO OP FIXED BINARY INI TIAL4 ) ; 
DCL FXRAME CHAR (8) ; 
/*** DETERMINE ACTION AND SET INDEX  ***/ 
IF (MESSAGE => EIELDI = $SCPENF) THEN J = 1; 
LSE IF ((MESSAGE -> FIELDI = $$READ} | 
HESSAGE -> FIZLD1 = SoWRITE)) THEN J = 2; 
ELSE IF (MESSAGE -5 FIBLDi - $$CLOSP) THEN J=3" 
F (MESSAGE-~>FIELD1I=$$DSTYF) THEN J=4; 
ELSE ERROR = 110; 
DO ACTICH OF  CASE(J); 
CASE(1): /* OPEN FILE: SHOULD INCLUDS SUCH TESTS 
"AS; LEGAL "FILE, ACCESS, DEVICE STATUS, 
READ OR WRITE OPERATION, IF WRITE AND 
FILE OPEN CAN'T BE SATISFIED AT THIS 
TIME THEN CHECK FOR POTENTIAL DEADIOCK*/ 
/*** GET FILE INTERNAL NAME ***/ 
FXNAME = MESSAGE -> CHAR _FIELD1; 
CALL FIND_INAME ($FILE,FEXNAME,FINAME,EBROK); 
CALL FILETALLOCATOR (FINAME, ##0OPEN, RELEASOR, 
FIELD2) ; 
ENDCASE; 
CASE(2): READ/WRITE OPERATION: CHECK FILE 


THE APPROPRIATE INTERFACE 


/* ATION: 

EXISTANCE, ACCESS, AND RELEASE MESSAGE 
TO DEVICE 

PROCESS */ 


FINAUE = FIELD2 


E CHECK IF MESSAGE RELEASOR DID AN 
PEN ON THIS FILE. 
CALL RCB_PIND (PINANE, #LEFT, #PNDOP 1, POSIT 
RELEASOR, DAT TA, DUMMY, ERRCR): 
IF (POSIT = 0) THEN ERROR = 106 
/* VERIFY IF OPERATION (READ /WRITE) 
REQUESTED IS LEGAL. k 
IF ((FIELD1 = ##WRITZ) Š (DATA = ##READ) 
THEN ERROR = 1163 


he 


/* GET DEVICE INTERNAL NAME AND THEN 
THE INTERFACE PROCESS'S INTERNAL e 
CALL PRIMITIVE -RCBDATA (FINANE, 4GET,4DINAME, 
ATA; ERRO n) 
CALL PRIMITIVE _RCBDATA (DATA; GE 
/* RELEASE A MESSAGE TO TIRE RINTERPACE 
PROCESS TO PERFORM THE OPERATION. %/ 
FIELDS = RELEASOR; 
CALL PRIMITIVE EZLEASE(DATA,SRFILEW, 
MESSAGI, ERRCE) ; 


ENECASE; 

CASE(3): /* CLOSE FILE: VERIFY FILE EXISTANCE, 
REMOVE PROCESS INANE FROM FILE RCB 
CHECK FOR OUTSTANDING OPENS, IP ANY 
SELECT ONE OR MORE AND RELEASE A MESSAGE 
TO THOSE PROCESSES, IF NONE CLOSE THE 


FILE. A 


rEg = HR SSAGE ”2 FIELD: 
PIANE = NESSAGE => RELEASOR: 
CALL FILE Pare een RI оз, ,FINANE, 


ENECASZ; 








CASE (4) :; /* DESTROY FILE: PERFORM TESTS ON LEGAL 
ILE, ACCESS, AUTHORIZED TO DESTROY, 
IF ANY PROCESSES ARE USING OR WAITING TO 
USE THE FILE, RELEASE A MESSAGE TO THE 
SUPERVISOR FOR EACH PROCESS, DESTROY 
FILE RCB, UP DATE MASTER FILE LIST = 
DATE FILE DIRECTORY, AND SEND MESSAGE TO 
STORAGE MEMORY MANAGER. */ 
DCL PRO VEC(0 : PCB LIH) BIT(1) 
NITIAL ((PCB LIM «1) (1) '0'B); 


FINAME - FIELD 
Aers GET SIZE OF THE FILE AND PCT NAME ER, 
CALL PRIMITIVE na... NANE т Lc SZ 
FSIZE,ERROR 
CALL PRIMITIVE MALIN EE P icri, 


FXNAME,ERRO 
CALL FIND INAME(#PCT,FYNAME,INAME,ERRCR); 
CALL DESTROY RC HERAT, RELFASOR,PRO_VEC, 
ERROR 
/* RELEASE MESSAGE 10 SUPERVISOR FOE 
FACH PROCESS THAT WAS QUEUED UP CM. 
THIS FILE. 
IF (PRO VEC(Q)) THEN 
I = 1 TO PCB LIM; 


IF (PRO V ҮЕС(Т)) THEN DO; 
UN = ELT 


E END; 
/* GET SPACE AVAILABLE IN PCT AND UPDATE IT i 
CALL PRIMITIVE RCBDATA(INAME,EGET,$CNI, SZ, 
DATA,ERROR); 
DATA = DATA + FSIZE 
CALL PRIMITIVE “RCBDATA(INABE, #PUT,#CNT SZ, 
DATA, ERROR) : 
/* RELEASE MESSAGE TO UPDATE DIRECTORY */ 
IE - $$DIBDL; 
FIELD2 - FINAME; 
FIELD3 - FSI2E; 


be 
CALL PRINITIVE_RCBDATA (INAME #GET,#DINAHE, 
FINANE,ERROR) ; 
CALL PRIMITIVE _RCBDATA (FINANE #GET,#OKNER, 


- 


i 


NAME, ERROR) ; 
CALL PRIMITIVE RELEASE (FINALE SRFILEN, 
ESSAGE, ERROR) ; 
/* INFORM SPACE MANAGER OF THE CHANGE IN 
SPACE AVAILABLE FOR FILES. x / 
FIELD = $SADD; 
FIELD2 - INAME; 
FIZLD3 = FSIZE; 
CALL PRINITIVE RELEASE(ANYPROC,$SPACE, 


MESSAGE, ERROR) ; 
ENDCASE; 


EMD CF CASES; RETURN, 
END FILE _ OPERATION _ CONTROLLER; 





FILE ALLOCATOR: PROC(FINANE OPERATION, PINAME,TYPE) ; | 
kou ж ж Oe ж ж X KOR < X k X ж ж ж ж ож 
THIS SUEROUTINZ DITERMINES IF A PROCESS CAN HAVE ACCESS 
TO A FILE, IF ACCESS IS DELAYED, DOES A DEADLOCK EXIST 
OR CAN IT OCCUR; IF À FILE IS CLOSED, ARE THERE OUT- 
STANLING REQUESTS FOR THE PILE AND IF SG SATISFIES 
THEM? ETC. макы Жжж ху 
DCL (OPEHATION,FOUND,O EMPTY,BDATA) BIT(1); 
DCL DUNEY PARM FIXED BINA R£ INITIAL (0); 
DCL : DUMEY”PTR POINTER 
DCL (FINAME,PINAME, TYPE ÈSTAT, PRI,TERI,ISTAT, 
PRIVATE DATA) "FIXED BINARY; 
DCL 10FELEM' FIXED BINARY INITIAL(1); 
DCL  FILE(1) BIT(2); 
DCL TEIT2 BIT (2); 
DCL CDATA CHAR (8) ; 
DUMMY FTE = NULL; 
FOUNL = FALSE; 


CAL 
CAL 
ТЕ 


SVEC,FINAME, 
ERROR); 
OR P,PRIVATE, 


L FRIHITIVE PCBDATA(PINAME,dGET,0RE 
f 

* OPEN FILE */ 
O ake de ak 

R 


a 
FINAME, FIL 
L FRIKITIVE -RCBDATA (FIMARE, Q3GET,£ 


R 
E 
S 
(OFERATION = ##OPEN) THEN ! $o; / 
I 
E 


/*** CHECK ACCESS AUTHORIZATION 
IF (FILE(1) == ##ACCES) THEN DO; ROR = 109; RETURN; 
/*** CHECK IF THE FILE CAN BE OPENED  **x*/ 
CALL ERIMITIVE Eun PE para, 
IF (BDATA = ##HOLD) THEN DO; ERROR=113; RETURN; END; 
CALL PRIMITIVE PCB ШО лл е, 
ERROR) ; 
/*** ASSIGN THE FILE TO THE PROCESS ***/ 
FILE (1) = ##ACORD; | j 
CALL PRIMITIVE -PCEDATA (PINAHE,GPUT,RISVEC,PIWAHE, 
INAHE,FILE,ERROR); 
IF ((IYPE = FRURITE) $ (ORIVASE = ##SHRD)) THEN DO; 
/*** WRITE ACCESS INTO SHARED FILE: CHECK 
OWNERSHIP kk 
CALL PRIMITIVE RCBDATA (FINAME,$GET,FOWNER,DATA, 
ERR : 
IF (DATA == PINASE) 7 THEN 
JX*** NOT OFNER: PUT ON WERE AND RELEASE ERROR 
MESSAGE TO THE OPERATOR Kr 
CALL RCBPUTQ(FINANE,#RIGHT,PINAYE,DUNMY PARN, 
PRI,DUMMY PTR,##WRITH, ERROR) ; 
ERKOR = 112; RETURN; END; 
*%*% AUTHORIZED ACCESS: UPDATE WRITE COUNTER **/ 
CALL PRIMIPIYE PCBDATA(PINAME,OPUT,GFWCNTR,DATA, 
ERROR); A 
CALL ET gr , OESTAT, tsTAT, 
E {) ; 
IF (ISTAT = SÉSACR) T HEN DO; 
/**% PROCESS IN SACRIFICE STATE *** 
CALL DFADLOCK > SETTER (FINANE, PINAME ,PRI,TYPE, ÈSTAT, 
PRIVATE); 
RETURN; | END; 
IF ((ISTAT = ##RZADR) & (TYEE = ##WRITE) $ 
(PRIVATE = ##SHED)) THEN 
/*** UPDATE PEOCESS'S FILE ACCESS STATUS ***/ 
CALL POE ITIVE о, ,OFSTAT, ##WRITR, 
ERROR) ; 
*** DETERAINDZL IF THE FILE IS AVAILABLE za? 
CALL PRIMITIVE -hCEUATA (FIWAMS, GET, SOPILE,FSTAT, 
a ; 
IF (FSTAT = ##AVAIL) THEN DO; 
/##k PILE AVAILABLE: ASSIGN THE PROCESS, ENTER 
PROCESS IN THE QUEUE AND RELEASE À ME zn 
x< 
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CALL PRIMITIVE EM LE QSPUTQEOFILE,TYFEE, 
O 


CALL RCBPUTQ (FINANE #LEFT, PI JANE ,DUAMY PARM,ERI, 
DUM PTR, TYPE, KR gli 
CALL PRIMITIVE LHCBDATA (BINAGE, ,#GET,#XNAME,CDATA, 
Ë 
MESSAGE —> CHAR FIELDI - CDATÀ; 
MESSAGE -> FIELDI = FINANE: 
CALL PRIMITIVE. RELEASE (PINAME,M SG_SFMAPHORE, 
MESSAGE, ERROR) ; 
END; 
ELSE DO: 
**x FILE ALL READY OPENE 
IF ((TYPE = 4#WRITE) | (TYP! 
/*** ACCESS NOT AVAILABLE 
CALL DEADLOCK SETTER( IN 
T 
LA 
11 
IOR 
Ë 
HT, #FNDOP5 , TOPELENU, 
DUMMY PARM,TPRI,ERRCR); 


RIGHT,PINAUZ, DUANY Paul, 
A php; RI 


CALL RC 


TES (PRI «€ 
CALL RC 


ELSE DO; 
CALL RCBPUTO( 


CALL PRINITI 
HESSAGE -> C 


NOGA pm ` 
MESSAÄ di “DA, 


т^ 
CALL PRIMITI 
END; 


B 
E 
T 
I 
R 
R 
H 
U 
LG 
d 


< *+ a e 


ын шнш ек 


— q Ei 
» SKO 
esL 
SE 
pe 
Ls 


E 
E 
D 
A 
та 
ki 
j 


E 
H 
V PINAME,MSG. SEMAPHORE, 
NESSAGE,ERKOR) : 


/* OPERATION IS CLOSE FILE *y 
/*** REKOVE THE PROCESS FROM THE QUEUE AND 
DETERMINE IF ANY OUTSTANDING REQUESTS FOR 
N BE SATISFIED * kx / 
) |, (FILE (1) =+éNOACC)) THEN RETURN; 
M 
{ 


e m 
H 


BEN 
‘Ep DUNAY PARN, 
DC ENPTY ERROR) ; 


MY PARN 
I HPTY,ERRCR) ; 
| 


c» ns tg 
mos 
Pry by Pa} fai 


bj + E 
es 
> 
a we i o 


toot ar EXE 
O 

nos MG m. 
= 


L 
A: 
À 
RI 

CALL PRIL 

IF (DATA = THEN 


TBIT2 - FILE(1); FILE 
CALL PRIMITIVE PCBDATA 


IF HS ENP TW FALSE) 
HEN RETURN; 
CALL PRIMITIVE. RCBDATA 


DUMHY FARM = O; 
CALL HESOLVE_DEADLOCK (FINAME,DUMEY_PARM); 


END 


RETURN: 
END FILE ALLOCATOR; 


T,@FWCNTR,DATA, 


CBDATA (PINAME, 
AD, ERROR) ; 


SVEC,FINAME, 
er ##SACRF) ) 
Ul, #OFILE,##AVALI, 


tzj FG t: t> WAH Orn 


MUN Um HL 
hy Do jin 


Ga a OO 
Rt Cdge»>mstu zo l its 
J @ e 
Eat 
os ty ^om 


y ZZ 


м 
nn un EN Dom ma CC, 


DE OSS ODA & mtr 
"eck Cito GC > >> ЕДЕН лм 


Y 
rij m; 
Lu 
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ON. nz PRO 
x ж ж x 


CAN EP SATI 


UD [гуз ka 
mht un Lo a 
"Uum NTA n 

non» r 


eJ 
ses "^ MMA O 


E 
DCL CDATA CHA 
DCL FILES (FLL 
STARTING = TRUE: 
ELFM 
DO FOREVER; 

TO 


` I. Er TOP ELEMENT ON THE OUTSTANDING b 
B 
CALL RCB FIND(RCBNR BRICHT, ,#FNDOP5, ELEM, PINAM, DATA, 


Ri, ERROR 
ELEM - ELEM * 1; 
IF (DATA = 0) TÜEN RETURN; /* R QUE IS EMPTY %/ 
4 


'lrure : FILE U LIMIT) EIT(2); 


IF ( (EATA = ##READ) | ((DATA = ##WkITE) & STARTING)) 
THEN DO; /* OPEN REQUEST NOI SACRIFICEL 
TRANSFER TO OPEN QUEUE AND 
RELEASE MESSAGE 10 PROCESS */ 
STARTING = FALSE; 
CALL RCB TRANSPERQ(RCBNR,#RIGHT,PINAM,RQ STAT, 


LO_STAT,XFERED,ERROR 
CALL PRIMITIVE ACHT rer #OFILE,DATA, 
OR 
CALL PRIMITIVE. -BCBDATA(BCBKR do ET, #XNAME,CDATA, 
MESSAGE —> CHAR FIELD1 = DADA: 
MESSAGE -> FIELDI = ECBNR; 
CALL PRIHITIVE hi LEAS (PLNAN, WALT, HESSAGE, 
i ) | (RO_STAT=##CLOSE)) THEN 


° 
, 


ELSE DO; /* OPEN REQUEST SACRIFIC 
IF (“STARTING $ (m ((DATAZ##READA) | (DATA=##R 
THEN RETURN; 


A TEST SACRIFICED OFEN KEOUESIS FOR 
READ OR WRITE IF NO TRANSFER WAS 
MADE ABOVE; ELSE ONLY TEST READS.  %/ 


ATA == ##WRITH) | (PINAM 4- EXEMPT PRO)) THEN 


PRIHITIVE PCBDATA(PINAH,OGET,O0RESVEC 
FILE L LIMIT,FILE U LiIMIT,FILES,ERACR); 
FILE-L-LIMIT TO FILE T: 
‘CENR) ) THEN DO; 


— Li 
de EE, #SACRF) & 1 

“Ki jO AH ROD INTER ME FOR WHICH 
ROCES 
PIV 
IND 


IF 


E AE 
= 
tu 
tri 
KO 
м С 


РЕ NAM DIL 
CALL PRIMI 

CALL RCB F 
IP (BAR - 


male. 
COU tiem Ho 
SArawOOzZze Jt 
=> JJ = O tz; tz 


M 
# 
H 
S 
E 
( 
té d 
s 
E 


= 

- 

= 

кт! 
rt St 
kho 4 
кшн шя OMO? 


END; 
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a Gow aa PRANSE RR. THiS PROCESS'S 
OUTSTANDING OPEN KEQUESTS AND RELEASE 
MESSAGES TO THE PROCESS WHEN ans 


ECL IDATA FIXED BINARY; 
FSTAT = ##RZADE; 
DO I = FILE L LIMIT TO FILE U LIMIT; 
IF (FILESTIT = **SACRF) THER DO; 
CALL RCB_TRANSFERO(I,¿RIGHT,PINAM,RO_STAT, 
LÓ STAT,KFERED,ERROR); 
CALL RCB TOME ENDE M pOSIT, PINAH, 
le 
IF ((DATA = 48READA) | (DATA = ##READS)) THEN 
IDATA = ##READ; BLSE LO; IDATA = ##WRITE 
FSTAT = #8WRITR: END; 
CALL PRIMITIVE re ai #PUT, SOFILE, IDATA, 


CALL RCB PIND4I, LEP Det FEDORI z ‘POSIT, PINAM, 
IF ( (DATA = peenei | "DATA ="##WRITA)) THEN 
O? 


? 
CALL PRIMITIVE N #GET, #XNAME 
ATA, ERROR);' 
MESSAGE -» CHAR FIELD! = ОБАА; 
MESSAGES > FIELDI - T; 
CALL PRIMITIVE RELE ASE(PINAM, 
MESSAGE 
END; | 
FILES(I) = ##ACQRD; 
END, 
END: 
CALL PRIMITIVE PCBDATA(PINAKHK,OPUT,ORESVEC, 
БОП PPHIPTP FILE U LINIT FILES, ERACR : 


FIL 
CALL PRIMITIVE pops OFSTAT,FSTA?, 
END; к ' 
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DEADLOCK_SETTER: PROC(FINAME,PINAME,PRI,TYPE,STAT, 
SHAR BERN: 
* ж ж ж ж ж Ж ж ж ож ож * ж ж ж ж ж ж ж ж ож ko Mk ж ж ж 
THIS SUBROUTINE TRANS? m ALL OF TEE FILE OPZN RECUESTS 
FOR THE PROCESS (PINAGE) TO THE OUTSTANDING QUEUE AND 
SETS THEIR STATUS TO ##READH OR ##HRITH ACCORDINGLY. 
IF A FILE BECOMES AVAILABLE , DEADLOCK RESOLVER IS 
INVCKED IK / 
DCL SEAR PRIV FIXED BINARY: 
DCL (FINAME, PINAME,PRI,TY TAT) FIXED BINARY, 
CAS INDX FIXED BINAS 
ANS TA ke DN e 1) 
T IXED BINARY 
U LIMIT) BIT(1), 
NIT (0 


# 


LUM Y-PTR. POINTER ; 

DUNMY PTR = NULL; 

/* DETERMINE NECESSARY ACTION */ 

IF(SHAR ERIV = E+ERIV) THEN OP=1; ELSE OP = STAT; 

IF ((SHAk PRIV = ##SHRD) & ( TYPE = ##HRITE)) THEN DO; 
CALL PRIMIT TIVE PCBDATA (EINAHE, OGET,6FHCNTR, DATA, 
DATA = DATA + 1; : 

CALL ERIMITIVE. -PCBDATA (PINAME, @PU2 DFWCNTR, DATA, 
9 


END; 
O ACTION OF CASE (OP); 


GASE(1) <2 7* DT HAS NOT OPENED A SHARED FILE s 


WRITE 
IF (TIEPE =## READ) THEN CAS INDX = 1; 


ELSE CAS INDEX 2 
ENLCASE; 
OPENED A SHARED FILE ON A 


CASE(2): /* PROCESS HAS 
WRITE AND IS NOT CURRENTLY SACRIFICEL  */ 
CAS_INDX = 2; 


ENLCASE; 
CASE(3): /* PROCESS IS CURRENTLY SACRIFICED */ 
CAS_INDX = 3; 
PNLCASES 
END_CF_CASES; | 


DO ACTION OP CASE(CAS INDX); 


CASE (1): /# READ ACCESS REQUESTED - NO SACRIFICE 
CONDITION */ 
CALL RCBPUTQ (FINAME, #RIGAT, PINANE,DUMMY_EARM, 
PRI, DUMNY PTR,TYPE,ERROR); 


ENLCASt, 
ERSE (2): "o ОЛСОН ДЕЛСЕ КЛ OF SIIIS PROCESS" TILES A 
BEGIN; 
DCL FILES M TABINTT: EI LS SULLINIT TZ): 
CIEL URIDIITVS PCBDATA (PINAME, EGET. E VEG, 
ERES EHTE EILE J LIMIT, FILE REOR) ; 
DO I= PILE- L LISIT FON AE UL IDE: 
CHEKK (I] = FALSE | 
TE tee = 4#ACQRD) 6 (I == PINANE)) 
THEN DO; | 
FILES(I) = ##SACRF; 
CALL KCB PRANSPERQ (I,íL EFT,PIMAME,LOSTAT, 
HOSTAL, TRANS ERROR): 
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/* RESET DATA IF THE OPEN QUE IS ENPIY 
AND SET CHECK TO INDICAT: THE FILE MAY 
BE REASSIGNED CR 
IF (LYSTAT =##CLOSE) THEN DO; 
CALL PRIMITIVE RC DATA (FINAME, šPUT, 
- #OFILE, #¥AVAIL,ERKOR) ; 


CALL PRIAITIVE Bir, #PUT, 
#OWNER, DATA, ERROR 
y SHEKK (1) = TRUE; 


CALL RCB „EIND (I, #RIGHT, # #FNDOP1, POS,PINAME, 
/* CHANGE THE BROCHET POL. arem STATUS. 
ON THE QUEUE, IF NECESSARY 


IF ((FSTAT > 0) 6 (FSTAT <=2)) THEN LO; 
DÒ ACTION OF CASE(FSTAT); 


NP 
iL 


CASE (1 Y a CURRENTLY READ */ 
SERA! THEN FSTAT =##READS; 
TÈL E Som =##KEADA: 
ENDCASE; 
CASE (2): /* CURRENTLY WRITE x / 
IF (TRANS) THEN FSTAT = ##WRITS; 
_ ELSE FSTAT = ##WRITA; 
ENDCASE: 
END OF CASES; 
CALL RUB FIND(I,%R p #ENDOP2,POS 


ane PENAME, FSTAT,CPRI ,ERKOR) ; 


END; H END IF ACQUIRED i 
END; /* END DO LOOP */ 


/* SET THE PROCESS! STATUS TO SAC 
CALL PRIMITIVE PCBDATA (PINANE, à PU: 
##SATR,ERROR 
CALL PRIHITIVÉ SCEDATA (PINANE ,aPU 

FILE L LIBHIT,FILE U LIMIT, FI 
/* NOW ENTER THE FILE TO DE OPENED 
S ACRIFICE STATUS - ANSWER REOQUI 

GO TO CASE(3) ; 


END 
ENECASE: 
CASE(3) 2 77% nn THE FILE TO BE OPEREI IN SACRIFICE 


TATUS, ANSWER REQUIRED E 
IF (TYPE =##2cAD) THEN FSTAT =##4READA, 


ELSE FSTAT = ##WRITA; 
CALL RCBPUTQ(PINAHE,tSRIGHT,PINAME,DUMMY EARM, 
PRI,DUHMY PTR, FSTAT, ERROR) F 
DCL FILES(1) BIT(2); 
FILES(1) = ##SACRF; 
CALL PAIBITIVE PCBDATA(PINAME,GPUT,@RESVEC, 
FINAME, FINAME, FILES, ERROR) ; 
ENLCASE; 
END OF CASES; 
/* ASSIGN THE FILES THAT HAVE BECOME AVAILABLE %/ 
DONIS Fr L LINIT ROM BELLE UC LTAL 
IF CHEKK(I) THEN CALL RESOLVE_ DEADLOCK (L, PINANE) ; 


EN 
END DEADLOCK SETTER; 
END FILE_MANAGER; 





MODULE SPECIFICATION 


NAME: FILE SPACE MANAGER TYPE: PROCESS 
PARAMETERS 
INPUT____ OUTPUT ARABE E CONTENTS — _ 


Not Applicable: All communications handled via messages. 


Pe wan CALLS MADE TO OTHER MODULES 
N 


К ОШ к 7 PURPOSE C n e o. 

Request Process I-Nane, a) $Space - Semaphore used to 
Semaphore,. identify messages for this 
hessage Pointer, Process. 
Error Parameter 

Release Process I-Name, a) $Rfilew - Semaphore used to 
Semaphore,. send messages to an inter- 
Message Pointer, face process to up- 
Error Parameter date the directory. 


b) S$SXXXXXX - Semaphore used to 
send a message to the pro- 
cess eu ln a ille. 

O 


c} $Error - Semaphore used to 
Send messages to the Frror 
Handler. 
PCBData Process I-Nane, Generic entry point to PCB 


Put/Get Identifier, Structures module to enter or 
Field Identifier, obtain data. 

Data 2ərameter; 

Error Parameter 


ECBData Process ISNaMÈ, . Generic entry point to PCB 
a: identifier, Structures module to enter or 
Fielda Taentifier, obtain data or portions cf the 


Vector Lower Limit, data stored aS a vector (i.e., 
Vector Upper Limit, Resource Access Vector, Fage 
Vector Parameter, Table Vector, etc.). 

Error Parameter 


RCBData Resource I-Nane, Generic гу point tor p€p 
кыс Identifier, Handler module to enter cr get 
Field Identifier, data concerning a resource. 


Data Parameter, 
Error Parameter 


RCBPUTQ Resource I-Nane, entry point to RCB Handler 
Left/Right Queue, used to insert a process. 
Processi T= Nane, or a message on a speciried 
Data Paraneter, resource queue by priority. 
PEIJOrILY, - Cueues used by this process 
Message fointer, are the message semaphore and 
Data Parameter, the PCT queues. 
Error TParameter 

Find Resource A Entry ONES NOn Handler 

l-Name EE Je jane, used to get the internal name 
Resource I-Name, for the resource specificd b 
Error Parameter күре mule, device, etcC.)-anc 


external name. 
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Create 


Resource Type, 
RCB 


Resource X-Name, 
Resource Owner 
SZ-CDEL Parameter, 
Access Identifler, 
PCT Name, UM 
Dev/Int identifier, 
riie Descriptor, 
File DL 
Resource I-Name, 
Error Parameter 
RCBGETO resource I-Nane, 
Leit/Rigat Queue, 
Process I-Nane, 
Q Data Parameter, 
Message Pointer, 
‘Q Bata Parameter, 
Found Boolean, 

Q Status Boolean, 
Frrors EE 
RCB-Find Resource I-Nane, 
Left/Right Queue, 
Find Operation, 
Queue position, 
Process I-Nane, 
Data Parameter, 
Data Parameter, 
Error Parameter 


xNAL CALLS HADE BY OTHER 


- 
ME — <= — — = —= = oken oe 


Not appiicable for processes. 


DANA STRUCTURES USED 
MANE — FIELD.  IYPE ... 
Message e Based 
Buffer 
Releasor Integer 
Answer- Bit (1) 
Request 
Hessage- Integer 
Sepaphore 
Bufrfer- pointer 


Location 


__ PURPOSE _ 


Entry point to RCB Handler 
used to create an RCB cf the 
type specified; enter descrip- 
tor data in the appropriate 
RCB fields; and return the 
resource internal name. Not 
all fields are used by each 
type of resource. 


This entry point to RCB Hand- 
ier is used to remove a pro- 
cess from the specified queue 
ror the indicated resource. 
The data stored in the queue. 


«are returned if the process is 


found and the queue status is 
also provided. 


This entry point to RCB Hand- 
ler is used to determine queue 
Posı2L 10720, a process and put 
or get a copy of data. The 
Bess positicn, or both may 
e specified tc select a spe- 
clfic processy any process at 
tche Speciricd gos,tıon or ad 
speciiic. process at a speci- 
fled position. | 


MODULES 


ën zë eg ien zäiteg k= ram E ci ien Gi Ste ee ce eR Se ee ee ce mp ee ee ee 


PURPOSEZ/VALUES __  _ e ene 
Dynamically allocated, pcinter 
qualiried structure used for 


passing messages. 


Internal name of process 
releasing a message. 


Boolean indicating if answer 
required. 


Semaphore to be used in the 
answer. 


Not used by this process. 
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Field? Integer a) $$ADD or $3DELET - Message 
from File Manager indica- 
ting that a device has been 
added or deleted. 

b) $$SPACE - Message from File 
Manager indicatıng that a 
file has been destroyed. 

С) SSPERMF OT »$TEMPF - Mes- 
Sage to create a permanent 
Or one! file. 

d) $$EXTNT - Message for a 
file extention. 


Fielä2 Integer a) PCT internal nane - Identi- 
fies the PCT which was 
added or deleted, or cn 
which a file was destroyed. 

b) $$SHRD or $$PRIV — Identi- 
fies the file access-type. 


Field3 Integer File space requested. 

Field4-6 Integer Not used. 

Char- Char (3) Identifies file external name. 
Fieldi 

Cho Char (8) Identifies PCT external name. 
Field2 

Char- Char (8) Not used. 

Field3-4 


JA cama eee rpm ee ee E D ag = —— m Te ee A XA - — ee ee ee > 


File Space Manager has been u ME perform file 
creation as an independent system function. It fields re- 
guests for file creation, determines type, access, location, 
NI specified, and availability of space. Tr a permanent fiie 
is reguested on a specified PCT and space is not available 
an error condition is raised which terminates the process. 
For et files, a dummy file is created until space 
becomes available and then a message is released to tne pro- 
cess requesting the file. 





a un A + Ge —— MPLEMENTATION 


XINCLUDE NAMCHGR;  /***** FILE SPACE MANAGER ****/ 
(CHECK (ERROR)): 


FILE SPACE MANAGER: PROC OPTIONS (MAIN); 


SINCLUDE SIMUITR; 
SIN START (FROCESS FILE SPACE MANAGER) 


ZINCLUDE GENLEC: 
ZINCLUDE REQRELD; 
INCLUDE RCBDCL; 
INCLUDE PCBECL: 
INCLUDE CASESTM; 


DCL (INAHE,FDATA,I EI XED BINARY; 
DCL SPACE Stiel Sa : PCT_ MERIT) BIT (1) ; 
> FIXED. BINARY STATIC NITIAL (0) ; 


DCL CUT SFA 
DCL ESTAT BI 
DCL ERROR PD BINARY INITIAL (0); 
ON CHECK (ERRO 
BEGIN; 
IF (ERROR 27.0) THEN DO; | 
FIELD1 = RELEASOR;  MSG SEMAPHORE = $SPACE; 
FIELD2 = ERROR; 
(NOCHECK (ERROR)): BEGIN; ERROR = 0; 
CALL PRIMITIVE RELEASE (ANYPROC,$ERROR, 
MESSAGE, ERROR) ; END: 
GO TO START; 
END; 
END; 
GINCLUDE RRMSG; 
START: 
DC FOREVER; 


CALL PRIMITIVE. REQUEST (ANYPROC, $SPACE, MESSAGE, ERRCR) ; 
SIM INTIERRUPT PT 
CALI MESSAGE INTEZRPRETER; 


DO ACTICN OF CASE(I); 
—CKSE(1]: /* SPACE MODIFICATION FRCM FILE MANAGER 
A DEVICE HAS BEEN ADDED OR DELETED */ 
IF (FIELD1 = $SDELET) THEN 
SPACE VEC(zIELD2) = FALSE; 
ELSE DO; "SPACE VEC(FIELD2) = TRUE; 
IF (OUT SPACE REO -= 0) THEN 
= CALL SPACE RESOLVER(FIELD2); 
ENLCASE; 
CASE(2): | /* SPACE FREED BY FILE MANAGER; I.E., 
A FILE WAS DESTROYED d A 
IF (OUT SPACE, RLO >= 0) THEN 
CALL SPACE RESOLVER(FIELDZ); 
ENLCASE; 
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CASE (3): ge SPACE REQUESTED FOR PERMANENT 


FILE 
DEVICE SPECIFIED Ja EXTERNAL NAME. * 
/* GET INTERNAL NAME NOT FOUND ERROR 
CONDITION IS SET tu” PRIMITIVE. CR 
-CALL FIND „INANE(ERCT CHAR, FIELD2,INAME 
т . 
/* CHECK DEVICE STATUS IF IN HOID SET 


ERO ts ele servo PLLE CANCBESOCREATEDU*A 
CALL PRIMITIVE -RCBDATA (INA ок зл 


ESTAT,ERROR) 
IF. (BSTAT = ##HOLD) THEN ERROR = 1 3; 
* STAT IS GO; CHECK IF PERMANENT FILES 
CAN BE CREATED ON THIS UNIT. 
CALL PRIMITIVE RCEDATA (INAME,#GET,#OFILE, 
FDATA,ERROR); 
IF (FDATA = ##TEMPF) THEN EKROR = 114; 
/* NOW CHECK SPACE AVAILABLE; IF SPACE 
NOT AVAILAELE SET ERROR CONDITION */ 
CALL PRIMITIVE RCBDATA (INANE, #GET, #CNT_SZ, 
FDATA,ERROR) ; 
IF (FIELD3 > FDATA) THEN ERROR = 115; 
* ALL TESTS COMPLETED SUCCESSFULLY; 
CREATE THE FILE, ENTER IN DIRECTERY, 
UPDATE SPACE, ETC. x / 
CALL FILE CREATOR(ÍNAME); 
FDATA = FDATA - FIELD3; 
CALL PRIMITIVE -RCBDATA (INAME, 4PUT SCHT SZ, 
DATA, ERROR) ; 
ENLCASE; 
CASE(ü): ° /* CREATE A TEMPORARY FILE WHERE SPACE 
IS AVAILABLE; ELSE CREATE A DUMMY 
FILE UNTIL SPACE BECCHES AVAILABLE. */ 
DO J = PCT L LIMIT TO PCT U LIMIT — 1; 
IF (SPACE 3126 (J1) THEN’ DO; 
CALL PRIH E RCBDATA(J,#GET,#CFELE, 
FDAT A, SR AOR) ; 
IF (FDATA == PEPERHE) THEN DO; 
ALL PRIMITIVE RCELATA (J,#GET, 
#CNT SZ, „FDATA, ERROR) ; 
IF (FIELDI <= FDATA) THEN 
GO TO CFATEF 
ND; 
END; 
END: 
IF (J> PCT U LIKIT) THEN j = 0; 
/* CREATE K DUMHY FILE */ 
CRATEF: CALL FILE CREATOR (J) ; 
FDATA = FDATA = FIELD3; 
IF (0 2-0). THEN CALL PkIMITIVE_RCBDATA (J, 
PUT,# ar 52, FDATA,ERAOR); $ 
ENLCASE; т 
CASE (5): ` /# A FILE EXTENTION REQUESTED; CHECK 
FOR SPACE AVAILABLE ON SAME UNIT: 
IF NOT AVAILABLE SET ERROR CONDITION 
ELSE ALLOCATE SPACE, UPDATE DIRECTORY, 
UPO EE FILL EoD sae. * 
* TO BE IMPLEMENTED LATER */ 
ENDCASE; 


END OF CASES; 
END; 7* END DO FOREVER  */ 


SIM_END 
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ek n 


EE PRO 


I ОС; 
P ((FIELD1 $$ADD) | (FIELD1 = $$DELET)) THEN I = 1; 
LSE IP (FIELDI = ¿ESPACE) THEN 1 = 2 
ELSE IF (FIELD1 = 55 ERME) THEN L = 3; 
| ELSE IF (FIELD = $$ ABE) THEN I = 4; 
ELSE IF (FIELD1 = $$EXTNT) THEN I=5; 
ELSE ERROR = 110; 
RETURN; 


END MESSAGE, INTERPRETER; 
FILE CREATCR: PROC(PCIINAM); 


END FILE_C 


/* THIS SUBROUTING CREATES A FILE (REAL OR DUMHY) AND 
RELEASES МИЕ55АСЕ5 TO THE PROCESS REQUESTING A FILE 
ANL TO UPDATE THE DIRECTORY, Ox QUEUES REQUESTS 
UNTIL SPACE BECOMES AVAILABLE 


DCL (PCTINAH,RCBNR,FDATA,AVAIL,PINAHE) FIXED BINARY; 
DCL CDATA CHAR (8) : 
DCL DUMMY PTR POLNTER; 
IF (ECTINAM ~= 0) THEN DO; 
* GET DATA FOR CREATING A FILE #/ 
CALL ERIMITIVE SE EN #GET, #XNAME,CDATA, 


CALL PRIMITIVE, RCBDATA (PCTINAH, #GoT,#DINAME, FDATA, 
CALL PRIMITIVE ` RCBDATA (EDATA, bes, #CWNER,PINAME, 
AVAIL = ##AVAIL; OR) ; 

r 


CALL CREATE “kCB (gri ne FIELD1,RELFASOR, FIELD3 
D2, CDATA,FDATA,AVAIL,FIELDI,RCBNR, 


ERROR 
IF 4PCTINAH == 0) TEEN "DO; 
/*. FILE CREATED: RELEASE A MESSAGE TO THE INTERFACE 
EROCESS TO UPDATE THE DIRECTORY x / 
ANSWER REQUEST = FALSE; 
FIELD57= FIELDI: 
FIELD6 - FIELD2; 
FIELD1 = $SDIRAD; 
FIELD2 = 0: 
FIELDU = FDATA; 
CALL PRIMITIVE RELEASE (PINAUE,SRFILEN, 
MESSAGE, ERROR): 
/* RELEASE A MESSAGE TC THE PROCESS 
REQUESTING A FILE. */ 
FIELDI = FPCBIHR; 
CHAR FIELD2 = CDATA; 
CALL PRIMITIVE RELEASE(RELEASOR, 
USG SEKAP SAGE, EkROR) ; 


SE 
NORE. NES 
ELOG GeO; DUNNI FILE CREATED; QUE 

5 


UE UP INFO UNTIL 
SA BE 


PACE AVAILABLE AND MESSAGE CAN 
RELEASED */ 
DUMMY PTR - NUL 
CALL PEIMITIVE "P BDATA(BELEASOR,GGET, OPRIRTI, 
FDAT (ERROR) s 
CALL RCBPUTG(PCT U LIMIT,#RIGAT,RE gason, 
MSG SEMAPHOHE,FDATA,DUMMY ¿E Tk RODAR, ERROR); 
OUT SPACI. REQ < OUT SPACE REO F 1; 
END? 
REATOR; 


E CLPSCLVERISPROC(PCTIMAM):; 


ZAK STHIS SUBROUTINE ATTENPTS TO RESOLVE Ds 
JPL LL CREATION (REQUESTS Us 








DCL [Р EE ‚POSIT,PINAM,FINAM,PRI,SENMA,DAT2,LCATA) 
DCL (FOUND,Q ENPTY) BIT(1), DUMMY PTR POINTER; 
DCL CDATA CHAR(8) ; 
POSIT = 0; 
DO WHILE (CUT SPACE REQ == JE POSIT = POSIT + 1; 
/# GET THE SPACE AVALLABLE; AN OUTSTANDING REQUEST 
FOR A FILE FRON THE QUEUE; AND THE SPACE RECUIRED 
FOR THiS FILE REQUEST. 
CALL PRIMITIVE RCBDATA (PCTINAN, #GET, #CNI_SZ,DAT EFROR)^ 
CALL RCE FIND (ECT U LIXIT, #RIGHT, #FNDCPR5,POSIT,PINAN, 
FINEM,PRI,ERROR); 
CALL PRIMITIVE RCBDATA(FINAM,#GET,#CNT. SZ,DAT2,ERRCR) ; 
IF (DAT >= DATZ) THEN DO; | 
/* SUFFICIENT SPACE IS AVAILABLE: REMOVE THE 
FILE REQUEST FROM THE QUEUE. 
CALL RCBGETQ(PCT U LIMIT,#RIGHT,?INAM,SEMA,DUMKY PTR 
‚FINAü,FCOCUND,O EUPTY,ERROR) ; 
/* UPDATE’ THE SPACE AVAILABLE d 
LATA = DAT - DAT2; ` 
CALL ERIHITIVE  KCÈDATA (PCTINAM,#PUT,#CNT SZ, 
DATA, ERROR) ; 
OUT SPACE REQ = OUT SFACE REQ - 1; 
7% iii ioe EUM PARC EP MEANS. * 
CALL PRIMITIVE ER 5 SAVA ES 
CALL PRIMITIVE -acepara (SETITAH, #GET,#DINAME,DATA, 
ROR 
CALL PRIMITIVE _RCBDATA (INKA, PUT, #DINAME, DATA, 
ERROR) ; 
/* RELEASE A MESSAGE TO THE INTERFACE PROCESS 
TO UEDATE THE PCT DIRECTORY. 
FIELD4 = DATA; 
CALL PRIMITIVE RCBDATA (DATA, #GEL, #OWNER, DATA, ERROR) ; 
ANSWER REQUEST = FALSE; 
FIFLL1 = £SDIRAD; 
FIELD2 = FINAH; 
FIELD3 = DAT2; 
CALL PRIMITIVE RCBDATA(FINAN, #GET, #TFILE,FIELDS, 


ERROR) ; 
CALL PRINITIVE -RCBDATA (FINAN, #GET, #S_OR_P, FIELL6, 
CALL PRIMITIVE RELEASE (DATA, SRFILEW, MESSAGE, ERROR) ; 
/* SETUP AND RELEASE A MESSAGE TC THE PROCESS 
REDIJNSLLUIGTIA PILE, 
CALL PRIMITIVE -RCBDATA (PCTINAM, ,#GET, #XNAME, CDATA, 
CALL PRIMITIVE o QÉPUT,SXNAME,CDATA, 


OR) ; 
D FINAM; 


Orma 
== 
= try 
pa 
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ENDS 
[FEW CHECKSTOR MORE OUTSTANDING REQUESTS TO BE 
SAIISIFIED. 
FOSIT = ODT SPACE n 
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F U) t ж кс) 
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Er . 
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H ij 
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O 
F 
E RN: 
S SEE ESOLV ER; 


SPACE MANAGER; 


END 


( 
D; 
TO 
PA 
END FILE 
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HODULE SPECIFICATION 


NAME: ,INTEZRUPT HANDLER TYPE: PROCESS 
PARAMETERS 
INPUT —  OUIPUT — XxYPE —— CONFENIS lio 
None 
EXTERNAL CALLS MADE TO OTHER MODULES 
peste PARAMETERS 2 EURPOS E - _ soo 
Release Prccess I-Nane, a) $Error - Semaphore used to 
Semaphore, . send messages to the Error 
Message Pointer, Handler. 
Error Parameter b) $XXXXXX - Semaphore used to 


send messages. 


o an inter- 


face process or process 
a puces expecting an 
interrupt message. 


Interrupt Interrupt Nunmper, This module is invoked tc dis- 
Disabler Interrupt Save- able all interrupts while 
Vector the handler is in execution. 
Interrupt Interrupt Number, This module is invoked tc en- 
Enabler Interrupt Save- able a er interrupt or 
Vector enable ati »nterrupts disabled 
by this process. 
Savestate CPinane, This module is invoked tc save 
PLOCCSSOL, the corrent istate of exsecution 
Error Parameter ot a process being preenrted. 
Restore-  PIName, This module is invoked to 
State Processor, restore the state of the pre- 
Frror parameter empted process. 
RCBData Resource I-Nane, Generic EM point to RCB 
e to enter cr get 


mS Identif£ler, Handler modu 
Fie 

Data Paraneter, 

Error Parameter 


d Identifier, data Concerning a rescurce, 


Find Resource Type, Entry point to RCB Handler 

I-Nane Resourse X-Nane, used to get the internal name 
Resource I-Nane, for the resource specified b 
Error Parameter type (file, dcvice, etc.) an 


external name. 
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EXTERNAL CALLS MADE BY OTHER MODULES 
NAME PURPOSE . 


A A A A ce es AA — A mE ee Qam Qm | E A — m= n s SEBE шж щш A KA чє ш. с — eee AAA ee eee eee — 


Invcked directly by hardware when an interrupt occurs. 


DATA STRUCTURES USED 


WANE _ — FIELD `— TYPE |. .— PURPOSB/VALUES _ _ _ _ _ 
liessage — Based Dynamically allocated, pcinter 
Buffer qualitied Structure used for 
nung information concerning 
the interrupt via a Release. 
Saveint Bit(1) ie | used to save the status 
Array of the interrupts; arguement 


in call to the Disabler and 
Enabler. 


BEDUREERDESCRXETION. _ _________ S o o 
This process is invoke-scheduled ee when ever an 
mC ecru t occurs: IL Getermines wnich interrupt was Set, 
sets up a message to the appropriate irterface process and 
resets the interrupc. The current process is temporarily 
preempted until the interrupt is handled. This module has 
only keen partially implemented. | 
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AINCLUDE 


(CHECK (ERROR 
NTERRUPT HAN 


ALNCLUDE 


ALNCLUDE 


NAMCHGR; 


GENLEC; 
CSDCL; 
ECELET, 
KEGRELD; 
Rot SG: 


/***Ke INTERRUPT HANDLER **%**/ 


Der PROC OPTIONS (MAIN); 


ON CHECK (EEROR) 
BEG 


SN 
IF (ERROR = L THEN DO; 
NROCHECA (ESBOD)- EESIN: 
FIELD1 = MYNAME; 
FIELD2Z = ERROR; 
CALL see ;DERROR, WESSAÄGE, 
$ 
ERROR = 0; 
GO TO RETÜRN SPE; 
ENDS 
END; 
END; 


DCL (SAV PROC,INAME,INTF PROC, ,SEMAPHORE) FIXED BINARY; 
DCL ERROR FIXED BINARY; 


/*** DISENABLE ALL INTERRUPTS *x*x 
CALL FRIMITIVE INTEARUPT DISFNABLER(ALL, INT,SAVEINIS); 
gees SAVE THE STATE OP CURRENT PROCESS ***, 
SAV_PROC=CURRENT_PROCESS(SYS_PROCESSOR) ; | 
CALI FRINITIVE SAVZSTATZ(SAV PROC,SYS PROCESSOR,ERROB): 
ak SET CURAERT PROCESS 0 TETERRUD? HANDLER ky 
CURRENT EROCESS(SY5 PROCESSOR) = HYNAME; 


SA EDEN UI ТИЕ INTERRUPTIFTFT 
CILLEODNRIPSERDPR I[DENITETER; 


*«s RELEASE THE MESSAGE TO PROCESS CONCERNED */ 
CALL PRIMITIVE EELEASE(INTF, PROC,SEHAPHORE,MESSAGE,ERROR); 
*3 RESTORE THE STATE OF INTERRUPTED PROCESS */ 
“CALL PRIMITIVE RESTORESTATE(SAV PROC,SYS PROCESSOR,ERROR); 
/*#* REENABLE THE INTERRUPTS ***/ 
CALL PRINITIVE INTERRUPT ENABLER (ALL_INT,SAVEINTS) ; 
INTERRUPT IDENTIFIER: PROC; 
/* IDENTIFY WHICH INTERRUPT IS SET, SET MESSAGE BUFFER, 
RESET THE INTERRUPT, SET LOCAL VARIAEIES ,INTF PROC 
AND SEMNAPHCRE, APPROPRIATELY AND TAKE CARE OF ANY 
SEECIAL ACTICN REQUIRED */ 
END INTERRUPT IDENTIFIER; 
RETURN ET: 


END INTERRUPT HANDLER; 








MODULE SPECIFICATION 


NAHE: RELEASE 

PARAMETERS 

DNPUT-  - OUTPUT |. TYPE O 

Addressee Integer 

Semaphore Integer 

Message Pointer 
Error integer 


EXTERNAL C 
NAME 


Interrupt 
Disabler 


Interrurt 
enatler 


RCBData 


RCBEUTO 


PCBData 


PCBData 


ALLS MADE 
PARAMETERS 


Interrupt Number, 
Save Vector 


Interrupt Number, 
Save Vector 


Resource I-Nane, 
Put/Get Identifier, 
Field Identifier, 
Data Paraneter, 
Error Parameter 


Resource I-Nane, 
Lert/Ekight Queue, 
Process I-Name, 
Lata Parameter, 
BElOTIL),.. 

; jO Polller, 
Data Parameter, 
Error Parameter 


Process I=Nane,. 
Eut/Get Identifier, 
Field Identifier, 
Vector Lower Limit, 
Vector Upper Limit, 
Vector Parameter, 
Error Parametci 


PrO CESS imi jane,. 
Put,/Gèt Identifier, 
Freie laentllleLr, 
Data Parameter, 
Error Parameter 


TY CEST PRINILIVE 


CONTENTS lll 
Process, speciiied or unspeci- 
fied, expected to do a natch- 
ing kequest. 


ERS A SU class identi- 
ier. 


Qualifies message buffer which 
contains the information to be 
entered in the message bufrer 

request. 


Error condrtrcn code. 


PO OTHEP HODULES 


PURPOSE 


This module is invoked tc dis- 
able all interrupts while 
Release is in execution. 

The status of the interrupts 
is saved in the Save Vector. 


This module,is invoked tc re- 
enabie aii interrupts wLici 
were disabled ky the current 
module in execution. 


Generic entry point to RCB 
Handler nodule used by this 
module to verify the Semaphore 
passed a£ an arguement., 


Entry point to RCB Handler 
used to insert a process, 

Or a message on a specified 
TESOUECS queue Oy priority. 
Queues used by this module 
are the message semaphore and 
the Ready Active queues. 


Generic entry point to PCB ` 
Structures module used py tnis 
e rover Ee y tacOeSE | aulnos 
FEZAtion TOC the process using 
the semaphore. 


Generic: entry point to PCB 
Structures module to obtain 
taecsunp coRegNProceso's tyre 
апар ото уйл Changer scra us 
to ready active. 
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Scheduler (NONE) Inis primitive is invoked to 
schedule a precess for exec- 
tion ir the current process 
doing the release matched an 
outstanding request from a 
blccked process. 


Allocatcr Caller, This primitive is invoked to 
Addressee, determine if a matching re- 
Senaphore, | quest has been made for tnis 
Hessage, message or the resource being 
IR Boolean, released ror reallocation toa 
Match Boolean, process. If Match is true the 
Error Parameter process is unblocked. 


EXTERNAL CALLS MADE BY OTHER -MODULES 
pur M ocu PURPOSE 


Invoked by all system and user processes. 





gee mn eh ee ce ee cos cuu es “mm “mume ct m ee ee ee A h m was ee 


DATA STRUCTURES USED 

AME I) FIFLDO O . TYPE .—  PURPOSE/VALUESO  _ 

Saveint Bit(1) seni used to save the status 
Array oi the interrupts; arguerent 


an call to Disabler and 
Enabler. 


OU SI ON a nt Z RE 
This primitive has been designed to provide a uniform method 
for interprocess communication and resource allocation. The 
message/resource class identifier and process access autho- 
mization are verified. The Allccator 1s chen invoked tc 
determine if the release can be matched. If it is, the pro- 
cess is unblccked and the Scheduler is invoked. 


131 








Er en ELS CITED ` "mm ep ` Ae is r ee vg "ft ` gë Se ee 


XINCLUDE NAMCHGR; /**%**%*% RELEASE zitt 
Kk Ж * ж ж ж Ж* Жж ж ж ж Жж ж ж ж ж ж ж ж ж ж & ж ж ж ж ж 
THIS PRIMITIVE DETERMINES IF THE CUARENT RELEASE 
MATCHES AN OUTSTANDING REGUEST. IF IT DOES, THE BLOCKED 
EROCESS IS ACTIVATED AND THE SCHEDULER IS INVCKED. *x*/ 


Ada 
TO 
LA 


ECK (ERROR 
NITI IVÈ. tir PROC(TO,SEMAPHORE,MSG PTR,ERPRM) 
OPTIONS (MAIN) ; 


LUDE GENLEC; 
LUDE OSDCL; 
DUDE RCELCL: 
LUDE ECBECL, 


К (ERROR) 


N; 

E THEN DO; 
GO 

3 


2; 
POINT; 


z 0 
RFkH = ¿RR 
1UR 


TO RE 


a 


END; 


DCL dE E *ADDRESSEE, SEMAPHORE, ERPRM,PRI,TO) 
IXED EINARY; 

DCL EREOR FIXED BINARY INIT (9) ; 

WEE MSG FIR POINTER; 


DCL BuU ,HATCH) BITG(1 

DCL (SYSERC,QUE) BIT (1); 

DCL REL BIT (1) STATIC INÍTIAL('1'B в); 

DCL RES VEC (БЕР L LIMIT : SEM LIMIT) BIT(2); 
DCL IO FIXED BINARY STATIC INI (0) ; 

DCL NULE PCINTER STATIC; 


“Sé DISENABLE ALE INTERRUPTS*+?T* 
SALES PRIMITIVE TTUTERRUPT DISENABLER (ALL INT,SAVEINTS); 


Vw VERIFY ne: ANL ACCESS x 
PHORE, #GET, #ASSGND,VALIL, 


ERR 

(>VALID) THEN ERROR = 3 
S 
L 


T ALLER = CURRENT PROCES  ÓCESSOR) ; 
CALL ERIMITIVE PCBDATA (CA ER, OGET ORESVECLSER I LIMIT, 
SEN LIMIT, RES -VEC, ERROR]; 
IF (HES VEC(SEMAPHORE) =##NOACC) THEN-ERROR = 307; 


M INVOKE THE ALLOCATOR ***/ 
RIMITIVE ALLOCATOR(CALLER,ADDRESSEE,SEMAPHORE, 
MSG_ETR,REL,NAICH,ERROR) ; 


TE AAA) TEEN DO, 78%% ACTIVATE THE PROCESS w***/ 


ADDRES 
CALL P 


me 


CALL PRIMITIVE _PCBDATA (ADDRESSEE, 
EL,2SYSPRO, 
S Y 
TE “(SYSBAO = TRUE) THEN GUE = KOS: 
CALL enaner Éinen 


CALL PRIMITIVE -PCBDATA (A DDRESŠTE, ,OPUT,OSTATUS, 
REDYA, ERROR); 
RE rT,OPRIRTY,PRI, 
E 
CALL PRIMITIVE PCBDA' No lisa E 
SPRO, EKKOR) 
; ELISE QUE = 4U 
NULE = WÜLL 
CALL RCBPUTO(SREDYA,QUE,ADDRESSEZ,IO,PRI,NULP,IO, 
ERROK 
RETUKM FOINT: /*** RECNABLE THE INTERRUPTS ***/ 
CALL PRIMITIVE INTERRUPT ZNASLER(ALL IHT,SAVEIUTS); 
END PRIMITIVE RELLASE; 
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NAME: REQUEST 
PARAMETERS 
NPUT_____OPTPUT____TYPE______ 
Addressee Integer 
Semaphore integer 
Message Pointer 
Error integer 


MODULE SPECIFICATION 


TYPE: 


en one on en oo ae 


A == 3 

Process, specified or unspeci- 
fied, expected to do a match- 

ing Release. 


EE class identi- 
ier. 


Qualifies message buffer in 
which the matching release 
message information is tc be 
of a process doing a matching 
entered. 


Frror Condition Code, 


EXTERNAL CAILS HADE TO OTHER MODULES 


NAME —— 


__BARANEIERS_ 


—o enn 


Interrupt interrupt Number, 


Disabler 


Save Vector 


Interrupt Interrupt Number, 


enatler 


RCBData 


PCBData 


PCBLata 


Save Vector 


Resource I-Name, 
Put/Get Identifler, 
Field Identifier, 
Data Parameter, 

EE ror Parameter 


Process I-Name, ` 
Put/Get Identifier, 
DI Icontatrere 
Vector over Linit; 
Vector Upper Limit, 
Vector Parameter, 
Er Por Parameter 


Dueees5o mle kame," 
Put/Get Identifier, 
Kieia Edentirier, 
Data Parameter, 
Error Parameter 


PURPOSE ` 


— — E es ee ee ee = ee == — s ao 


This module is invoked tc dis- 
able all interrupts while 
Request is in execution. 

The status of the interrupts 
lS saved in the Save Vector. 


This module is invoked tc re- 
enable ail interrupts which 
were disabled DAS current 
module in execution. 


Generic d point to RCB 
Handler module used by this 
module to verify the semaphore 
passed as an arguement. 


Generic entry roint: to PCR  . 
Structures module used by this 
module to verify access autho- 
Pizadtieon гог рне process using 
the semaphore. 


Generic entry point to PCB 
Structures module to change 
rhesrequeesr nos proceser27 sta 
tuscstocbyockedost No ratch 
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Scheduler (NONE) This primitive is invoked to 
schedule a process for exec- 
tion if the current process 
doing the reguest gets blocked 
for àn answer or a resource. 


Savestate Requestor, This primitive is invcked to 
Processor, save the current state of exe- 
Error Parameter cution of the process which 

: did an unmatched request. 

Allccator Caller, This primitive is invoked to 
Addressee, determine if a matching,re- 
Semaphore, lease has been made or 1f the 
Message, requested resource is availa- 
Hoe poolean, ple for allocation to this 
Match Boolean, process. If Match 15 false the 
Error Parameter process is blocked. 


EXTERNAL CALLS MADE BY OTHER MODULES 
NAME. PURFOSE ` 


Invoked by all system and user processes. 


mee cm ie ST m `" me SIE I er m ———————————.————— uim counts wu m Small 


DATA STRUCTURES USED 
ines) FIRED AA TyBE 8 | BORPOSS/VALUFS  _____ a 
Saveint Bar) Array used to save the status 
Array of the interrupts; arguement 
in call to Disabler añd 
Enabler. 


MODULE DESCRIPTION 


This primitive has been designed to provide a uniform method 
for intersrocess communication and resource allocation. ihe 
nessage/resource class identifier and,process access autho- 
rization are veritied. The Allccator is then invoked tc 
determine if the request can be satisried. If not, the pro- 


moss 3S biocked and the Scheduler is invoked. 
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MODULE IMPLEMENTATION 


Aer oou s s — — Ge ee “s Gi. m s Gee ees eee eee COND 


ZINCLUDE NAMCHGR; /**%** REQUEST “*****/ 
ж ж ж ж ж ж ж ж ж ж ж ж ж ж Ж ж ж ж ж ж ж X xX * x x< x x< ' 
THIS PRIMITIVE DETERMINES IF THERE IS A MATCHING 
RELEASE FOR THE CURRENT REQUEST. IF NOT, THE INVOKING 
PROCESS IS BLOCKED, THE REQUEST QUEUED, AND SCHEDULER 
INVCKED. жж / 


SHIC ERKOR)): 
RINE DIVE TE, e A unt | MSG PTR, ERPRM) 
PT S - 


AINCLUDE ECBLCL; 
AINCLUDE OSDCL; 
SENGLUDE RCBICL; 


DCL (SEMAEHORE,ADDRESSEE,CALLE! 
DCL ERROR FIXED BINARY INIT (0 
DCL MSG ETh POINTER; 

DCL REC EIT (1) STATIC LOT 
DCL VALID Sdt L Í CUB 
DCL RES VEC (SE : SE 

DCL MATCH BIDT T 


ON CHÈCH (ERROR) 
IF (ERROR E 0) THEN DO; 


REKM = ERR 
Go TO RETURN POINT; 
END; 
END; 
/*** DISENABLE ALL INTERRUPTS *xx* 
CALL PRIMITIVE _INTERRUPT_DISENABLER (ALL_INT,SAVEINTS) ; 
/* VERIFY SEMAPHORE AND ACCESS */ 
CALL ERIMITIVE o BAG TES NONE ABRs PARSSEND, VALTL, 
ERROR); 
IF (-VALID) THEN ERROR = 3083; 
CALLER = CURRENT PROCESS (PROCESSOR) ; 
CALL ERIMITIVE_PUBDATA(CALLER,0GET,ORESVEC,SEM_L_LIMIT, 
SEM_LIMIT,R£S, VEC, ERROR] ; 
IF (RES_VEC(SEMAPHORE) =#¢NOACC) THEN” ERROR = 307; 


/*** INVOKE THE ALLOCATOR ***/ 

ADDRESSEE = TO; 
CALL PRIMITIVE _ALLOCATOR (CALLE ADDRESSEE,SEMA 
MSG “Bik, REO, MATCH, ERR 


PHO 
OR) 
IF (MATCH) THEN DO; /*** BLOCK THE INVOKING PROC 
ALL EKIMITIVE PČEDATA(CALLER,9PUT,0STATUS,00B 

RRO 


ER 
CALL FR1MITIVS ЗМЕЕТАТЦСАН, PROCESSOR, E 
CURRE NET PRGCESS (PROCESSO ; 
CALL e 

D; 


RETORN_ о 


жж 
CALLE EM V 
ENDZZERTNITIVE E 


PTS xxx 


ABLE THE INTERRU / 
E R(ALL INT,SAVZINTS); 


PEEN T 
WAT Et E ENABLE: 
QUEST 


=n 
i 
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NAME: 


—r — — — < = 


PARAMETERS 


MODULE SPECIFICATION 


ANPUT_____OUIFUT____1YPÉE___ 
Addressor Integer 
Addressee Integer 
Semaphore Integer 
Message Pointer 
Reg_Rel Bit (1) 
Match Bit (1) 
Error Integer 


ТҮРЕ? 


.CONTENTS _ 


Process internal name which 
initiated the call to Keguest 


or Release. 


Process internal name to which 
the message is addressed or 


from whic 


the message is ex- 


pected; may be unspecified. 


Message/Resource class iden- 


iu tas 


Qualifies message container. 


Boolean identifying message 
type; request or release. 


Boolean specifyin 


if ths cur- 


rent message matched a queued 


message. 


Error condition code. 


BATERNAL CALLS HADE TO OTHER MODULES 


KARE ___ 


PCBData 


RCBEUTQ 


RCB- 
Match 


PAhAMEIERKS 
оул р л> 


Process I-Name, 


Put/Get Ideutifier, 
Field Identifier, 


Data Parameter, 
Error Parameter 


Resource I-Nane, 


Left/Right Queue, 


Process I-Name, 
Ja co parameter, 
FEIOFItY, ` 

Message Pointer, 
Data Parameter, 
Error Parameter 


Addressor, 
Adaressee, 
Semaphore, 
Message, 

Req Rel, 

Matcn, 

Error Parameter 


-—-ESkRPOSE __ 


ce ti — — — eee OK GN 


Generic entry point to PCB 

Structures module to obtain 

the ed of the process 
1 


whic 


initiated the message 


when no match was found. 


Entry point to RCB Handler 
used to insert a process 1 
Or a message on a specified 
resource queue by BE GE 
when no match was found. The 
queue is ` by the se- 


maphore an 


Reg Rel . 


This primitive is invoked to 
Compare оше спа Messages 
on the specified semaphore 
gueue (if any) and return s the 
message buffer pointer if a 


match is found. 
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EXTERNAL CALLS MADE BY OTHER MODULES 
Ë 


 OC——— Q s m ee GE ee ee mm — s m Q Qm Qm mam qm — Gs s ш  — 033 щы < = — < = — s m < i E tf, 


Request & Release Resource allocation and message matching 
or queueing unmatched messages. 


DATA STRUCTURES USED 

ea FIELD — TYPE  —— PURPOSE/VAEJES  _ _________ 

Message Based Structure used to store un- . 

Buffer matched message releases until 


matching request is received. 


Cee ыы гон APA in eier 
This primitive has been designed to manage the aliocation 
of resources, handie interprocess communication, and assist 
‚һе primitives Request and Release. Unmatched message re- 
leases are queued on the specified semaphore gueue after 
transfering the message data to a temporary container where- 
aS unmatched message requests result in the queueing of the 
message and the process doing the request. Matched releases 
unblock processes which nad outstanding requests satisfied 
and in either case, matched requests or releases, tbe data 
in the queued release or current release is transferred in- 
to the requestor's message container. 
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A A — A A za... zn. 


AINCLUDE NAMCBGR; /***** — ALLOCATOR exo 


(CHECK 


(ERROK)): 


PRIMITIVE ALLOCATOR: PROC (ADDRESSOR, ADDRESSEE, SEMAPHORE, 
I 


156_РТЯ, REQ_ REL,MATCH, ERRORPARH) 
OPTIONSTMALN) ; 


PCELCH; 


H O 
GO TO RETURN. POINT; 


END: 


END; 


DCL 


ADDRESSOR, ADDRESSEE, SEMAPHORE, PRI,DATA, ERRORP ARM) 
IXEL BLNARY; 


DCL ERROR FIXED BINARY INIT(0); 


DCL 
DCL 


/* 


HSG ETR, 2EO REL) POINTER; 
MATCH; REO REL)aBIT(1); 


DETERMINE IF THE CURRENT MESSAGE MATCHES A QUEUED 
MESSAGE. > 


CALL PRIMITIVE KCB SATCH (ADDRESSOR,ACDRESSES,SENAPHORE, 


USGPTK, REG. REL, HATCH, ERROR): 


IF Be S (GREQ_REL) ) THEN DO; /* MATCH & REQUEST */ 
IF (NSG PTR ~= NULL) EN DO; 
NSG_ PIR -> MESSAGE BUFFER = MSGPTR -> MESSAGE BUFFER; 
FREE MSGPTR -> MESSAGE BUFFER; E 
i ai END; 
P í FATCH (REQ REL)) THEN DO; /* MATCH & RELEASE */ 
ME P Ge az NOLL) EE d 
GPTR -> NESSAGE_BUFFER = MSG_PTR -> MESSAGE BUFFER; 
nen -> RELEASCK = ADDRESSORT 
RETURN: END: 
IF ((HATCH) & (REQ REL) & (MSG_PTR == NULL)) THEN DO; 
NO MATCH o RELEASE %/ 
ALLOCATE MESSAGE BUFPER SET MSGPTR) + 
MSGPTR -> MESSAGE BUFFER = MSG PTR —> MESSAGE BUFFER; 
USGPTR -> RELEASCR = ADDRESSOR? 
END: 
ELSE MSGETR = MSG PTR; /* NO MAICH & REQUEST */ 
/* NC MATCH: QUEUE THE MESSAGE BY PRIORITY k / 
CALL FRIMITIVE poss, HL QOGET,GPRIRTY,PRI, 
des n 
CALL ECBEUTQ(SENAPHORE,2EQ REL, ADDRESSOR,ADDRESSEE,PRI, 
MSGPTR, DATA, ERROR) 


RETURN PCINT: 
END PRINITIVE_ALLOCATOR; 
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— " D S 


MODULE SPECIFICATION 


NAME: SCHEDULER 

PARAMETERS 

INPUT ^ OUTPUT .— TYPE _ 
None 


EXTERNAL CALLS HADE TO OTHER MODULZS 
NAHE, BURPOSE__ 


Interrupt 
Disabler 


Interrupt 
enabier 
Savestate 
Restore- 


State 


PCBData 


RCEGETO 


RCBPUTO 


HEB-/ina 


PARAMETERS ___ 
interrupt Number, 
Save Vector 


Interrupt Number, 
Save Vector 


CFIname, 
Processor, 
Error Parameter 


PiName, 
PECCESSOT, 
Error Paraneter 


Process I-Name, 
Put/Get Identifier, 
Field Identifier, 
Data Parameter, 
Error Parameter 


Resource I-Name, 
Left/Right Queue, 
Process I-Name, 
9 Tata Parameter, 
Hessage Pointer, 
Cata Parameter; 
‘Ound Boolean, 


Q Status Boolean, 


Error Parameter 


Resource I-Nane, 
Left/Right Queue, 
Frocess I-Namne, 
Dara parameter, 
BELO LILY): 
Message pointer, 
Data Parameter, 
Error Parameter 


Resource I-Name, 


_Leityhaght Queus, 


Finda Operation, 
Queue Position, 
Ee ]-NaBe, 
Data parameter, 
Data Paraneter, 
EIFrOP Parameter 


TYPE: 


E a южо шш eme ss 


emm. eee gf oo 





This module is invoked to dis- 


-able all interrupts while 


Scheduler 1S in execution. 
The status of the interrupts 
1S saved in the Save Vector. 


This module is invoked tc re- 
enable all interrupts which 
were disabled De e current 
module in execution. 


This module is invoked tc save 
the current state of execution 
of a process being preempted. 


This module is invoked tc 
enter the newly scheduled pro- 
cess's state vector into tne 
the allocated processor's 
registers. 


Generic entry foint to PCB 
Structures module to enter or 
obtain data. 


This entry point to RCB Hand- 
ler is used to remove a pro- 
cess from the specified queue 
for the indicated resource. 
henda a a or cd ia the queue: 
are returned if the process 1s 
found and tne queue status is 
also provided. 


This entry point to RCE 
Handler is used to enter a 
preempted process on the ready 
active queue after doing a 
Savestate operation. 


Tais entry point to RCE Fand- 
ler is used to determine queue 
position of a process and put 
Or get a copy of data. The 
EOC SS, position, Or both nay 
o Speciricu to select a spe- 
Celery BOC OC any Process ut 
the Specified position or a 
Suele process аг а Speci- 
fled position. 
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EXTERNAL CAILS MADE 
NAME 


(eam gees wpe LT AA te a a nn, m en en Em 


Request 


Release 


DATA STRUCTURES USE 
NANE______FIELD 


Saveint 


Current 
Process 


CEU CPROC, 
Pri 


== a mum ee ee ee ce AE rafe mr 


BY OTHER MODULES 
PURPOSE 


qe at «0 «yon PUR cv ee ee ee ee ee ee ee ee ee mm vm s ee -- “s. m LL —a — — — 


Current process blocked on unsatisfied 
request; hense processor avallable. 


Current 1 F did a matching release 
whlch unblocked a process; hense, rre- 
emption possible. 


~ 


__PYPE______ PURPOSE/VALUES 


name eee ce ts Re ge A ee et s = s E 


Bit(i) E used to save the status 

Array of the interrupts; arguement 
in cali to Disabler and 
Enabler. 

Integer This static array identifies 

Vector processes assigned a processor 


which is identitied by the ar- 
ray index. 


Integer Array of priorities for the 
Vector current processes. 


“aap ae ew ou ENERO ee ee ae sm Qam s “a s < < wF wa Qm qm Zë: «ai ste ff: me a Qm eee eae es ee ee ea O, 


This primitive has Leen partially implemented to perform . 
scheduling of processes with preemption only among operating 


SS tem processes. 5 


YSten processes execute only on the 


System prccessor uhlle user processes execute on the other 


processors. 
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MODULE IMPLEMENTATION 


"egen "E зт — < w ell ee ee ee ee ee 


ZINCLULE NAMCHGR; /***** SCHEDULER *****/ 
* THIS PRIMITIVE SCHEDULES PROCESSES TO BE RUN ON | 
PROCESSORS. k / 
(CHECK (ERROR) ) : 
PRIMCTIVE SCHEDULER: PROC OPTIONS (MAIN); 
ZINCLUDE OSDCL: 
SINCLUDE PCELCL: 
ZINCLUDE RCBLCL: 
ZINCLUDE GENLEC: 
ON CHECK (ERROR) 
BEGIN; 
IF (ERROR a< 0) THEN.GO TO RETURN POINT; END; 
DCL (EBI,POSIT,PINAME, DUHMYFR) FIXED BINARY(15), 
ERKOR FIXED BINARY (15 INIT(9), 
CPU CPROC PRI(4) FIXED BINARY (15) STATIC INIT ((4)0) 
, (FOUND, DUANYB1,RE SCHED, PREEMPT) EIT(1), 
"DUMKYPTR POINTER? 


| /*** DISENABLE ALL INTERRUPTS *xx/ 
CALL ERINITIVE INTERRUPT DISENABDLER(ALL_INT,SAVEINIS) ; 


ZG SCHECULE USER PROCESS IF HROCESSOR IS 


AVAILABLE * k / 
DO I = 1 TO NUMBCPU; | | 
IF ((I =SYs_PROCESSOR) & (CURRENT PROCESS(I) = 0)) 
THEN DO; 
POSIT = 1; 
CALL RCB FIND(HREDVA,HUSER, sFNDOP5,POSIT,PINAME, 
“DUANIFB,PRI,ERROR) ; 
IF (PINAME ~= 0) THEN DO; | 
ALL RCBGETO (#REDYA, #USER, PINAME, DUMMYFE, 
DUNMYPTR, DUNMYFB, FOUND, DUMMYB1, ERROR) ; 
CALL PRIMITIVE PCBDATA (PINAME, @PUT,OSTALIUS, 
GORUN, ERROR) ; 
CEU CPROC PRI (I) - PRI; 
QC PRIMITIVÉ RESTORESTATE(PINAME,I,ERROR); 
iD; 
END; 
END; 
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/*** SCHEDULE SISTENZEROTESSES.SE/ERBENET IF 


A SIT NECESSARY kk / 

5 

CALL RCE "FIND (#REDYA, KOT RE NDOPS5, POSTT,PINANE, DUN MYE BI, 
РЕТ, ERROR) ; 


IF (EINAME -= 0) THEN DO: 
IF (CURRENT PROCESS(SYŠ PROCESSOR) < 0) THEN 
E SCHED = TRUE; 
ELSE DO; 
RE SCHED = FALSE; 
IF (PRI > CEU CPROC PRI(SYS PROCESSOR)) THEN DO; 
FREEMPT = TRUE; 


CALL RCBPUTO(#REDYA,#0S, CURRENT_FROCESS ( 
SYS PROCESSOR), DUMAYFB,CEU CPROC Pal ( 
SY¥S~ PROCESSOR) , DUNMYPTR, DUNLYFB,ERECR) ; 
CALL PRIMITIVE SAVESTATE(CURRENT PROCESS ( 
eaP OCES ORI SY PROCS C OR, ERROR); 
CALL PRIMITIVE PCEDATA (CURREAT PROCE 5 
" SYS PROCESSOR) , @PUT, STATUS, BORED A, ERROR) ; 
E ‘PREEMPT = FALSE; 
IF (RE SCHED | PREEMPT) THEN DO; 
CPU CPROC PRI(SYS PROCESSOR) - PRI; 
CALL RCBGETY (#REDYA,#0S, PINAME, DUMMYFB, DUMMYETR, 
DUMHYFSB, FOUND, DUMNYB1, ERROR) $ 
CALL PRINITIVE_ PCBDATA (PINAME, PUL, @STATUS, DGRUN, 
E a 
CALL PRIMITIVE RESTORESTATE (PINAME,SYS_PROCESSOR, 
ERROR): 
END; 
END; 
/*** REENAELLE THE INTERRUPTS ***; 
CALL ERIMITIVE INTERRUPT. ENABLER(ALL INT,SAVEINTS); 


RELURN POLNI: 
END PRIMITIVE SCHEDULER; 


142 








MODULE SPECIFICATION 


NAME: DEVICE DIRECTORY TYPE: PRIMITIVE 
PARAMETERS 
HEU OUTPUT _ ТУРЕ CONTENTS (2 ee 2. 
X-Nane Integer Identifies device external 
nane. 
Sha Pri Integer Device access type: shared or 
private. 
Xnam Pro  Char(8) External name of the interface 
process. 
NR PGS Integer Number of pages in page table. 
PglocVec Integer Vector of the interface pro- 
Array Cess's page addresses. 
Eriority Integer Priority of interface prccess. 


Interrupt Integer Device interrupt identifier. 


Found Bit (1) Beolean indicating that the 
device specified by external 
name was/was not in the Levice 
Directory. 


REAL CARES KADE TO OTHER MODULES 

BEE PURPOSE ee 

Interrupt Interrupt Number, This module is invoked tc dis- 

Disabier Save Vector able all interrupts while | 
Device Directory 15 executing. 
The status of the Jñterruúupts 
15 saved in the Save Vector. 

interrupt Interrupt Number, This module is invoked to re- 

enakier Save Vector enable ali interrupts which 
were disabled py the current 
module in execution. 

EXTERNAL CALLS MADE BY OTHER MODULES 

NAME PURPOSE 


File Hanager This primitive is invoked to obtain the 
Input Con roller required data to create a device RCB and 
& Output Сспїгс11ег а device interface process. 
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DATA STRUCTURES USED 


NAME 
Mo 


Saveiat 


Directory 


. dO 


=} 


— 


Nr. 


FIELD 


Device 
Name 


Àccess 
Type 


Process 
Name 


Pgs 


Page 
Vector 


Priority 


Bit (1) 
Array 


Static 


' Array 


Char(8) 
Integer 
Char (8) 
Integer 
Integer 


Array 


Anteger 


interrupt Integer 


Number 


CLE DESCRIETION 


— mm gg fett r Á cn m Q s EP aum cuu ee Gp s W w . шї ee ee Gmm < a s a ....ñó w s “s s s Á å q — 


Array used to save the status 
of the interrupts; arguement 
in call to Disabler and 
Enabler. 


Dictionary, indexed by exter- 
nal name, of the computer sys- 
tem I/O devices. 
Device external nane. 

Device access specification: 
shared or private. 


Interface process external 
nane. 


Number of pages in interface 
processes page table. 


List of page addresses fcr the 
Interface process. 


Priority of interface prccess. 


Identifies device interrupt 
number. 


e ën ce ec A u A A A a ee шс шы ee 


This primitive has Leen designed to provide the system with 


the necessary [ 
ana an associated intertrtace process. | Ç 
o obtain this information. 


name need only be specified 


information to create an RCE for an I/O device 


The device external 
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er ëm wf e s e ee 


AINCLUDE NAMCHGR; | /* DEVICE DIRECIORY */ 


* ж ж ж ж ж ж + ж ж bk ж ж ж ж ж Жж ж ж ж ж ж ж ж ж ж 
THIS PRIHITIVE IS USED BY SYSTEH PROCESSES TO GET 
THE REQUIRED INFORMATION TO CRLATE AN RCB FOR A 
DEVICE AND A FCB FOR THE INTERFACE PROCESS. * / 


DEVICE DIRECTORY: PROC (XRANE SHA PRI,XNAM PRO,NRPGS,PGLCCVEC, 
PRI,INTEPINR, FOUND) OPTIONS(MAIN); 


XINCLUDE GENLEC; 
AINCLUDE OSDCL; 
DCL um XNAM_ PRO) CHAR (8 Li 
DCL (SHA PRI, NRPGS, Ri, INJA TNR) FIXED EINARY; 
DCL PGLCCVEC za FIXED BINARY; 
DCL ECUND A Li 
DCL NR ENTRIE LXED BINARY STATIC INIT (3); 
Ders DIRECTORY (O) STATIC, 
2 DEVNAME CHAK(8) INIT('IPDEV1','FPDEV1!,'OPDEY1'), 
2 SHARPRI FIXED BINARY INIT(1,1,1), 
2 PRCXNAMH CHaAR(8) INIT('INPROÍT','PERO1','OUTPROT!), 
2 NUM PGS FIXED BINARY INIT(1,1,1), 
2 PG LOC VEC (1) FIXED BINARY INXIT(9,10,11), 
2 PRIORITY FIXED BINARY INIT(45,47,45), 
2 INTERRUPT LOC FIXED BINARY INL@(1,2,3); 
/*** DISENABLE ALL INTERRUPTS ***/ 
CALL PRIMITIVE_INTERKUPT_DISENABLER (ALL_INT,SAVEINTS); 
/* SEARCH THE DIRECTORY FOR TER EXTERNAL NAME * 
DO I = 1 TO NR ENTRIES WHILE (DEVNAM: (I) -=XNADE) ; END; 
IF (I > Nk ENTRIES) THEN DO; FOUND=FALSE; RETURN: END; 
/* IF FOUND TRANSFER THE DATA */ 
SHA FRI = SHARPRI(I); 
XNAR PRC = PROXMAN (I) ; 
NRPGS = NUM 65 (1) 
DELGCVEC — DG l : _ŪEC (I,*); 
PRI = PRI ORITY (1) 
INTRETNR = INTERROPT LOC (Ue 
FOUND = TRUE; 
/*** ENABLE THE INTERRUPTS *x*x*/ ⁄ 
CALL PRIMITIVE_INTERRUPT_ENABLER (ALL_INI,SAVEINTS); 


RETURN; 
CXD DEVICE DIRECTORY; 





NODULE SPECIFICATION 


NAME: PCE STRUCTURES "TYPE: PRIMITIVE 
PARAMETERS 
ШЫ О уот 7 Турк — CONTENTS 2 


Parameters specified with the appropriate entry point. 


ul E CALLS “MADE TO OTHER NODULES 


eee eA ANE DE RS so PURPOSE L n AA 
Interrupt Interrupt Nunber, This module is invoked tc dis- 
Disabler Save Vector able all interrupts while 


PCB Handler is in execution. 
fhe status of the interrupts 
is saved in the Save Vector. 


..Interrupt Interrupt Nunber, This moduie is invoked tç re- 

enatler Save Vector enable all interrupts which 
were disabled by the current 
module in execution. 


EXTERNAL CALLS MADE BY OTHER liODULES 
NADY ` a  PURPOSEZ__ 


Invcked by processes and other primitives. 


== eee ee сс «n an GEET vg F s —  —— emie, w = = “ m. s s s w з n 


E DL De PEN ePURPOSR/AVALUKS n o. 
Saveint pil (1) Array used to save the status 
Array Or tne INterrupts; arguement 
in call to Disenabler and 
Enabler. 
PCB REF Pointer This vector contains the PCB 
| Array reierence pointers for created 


rocesses. The index number iS 
he process internal nane, The 
dimension is bcunded E the 
external varyıable PCB LILI], 
initialized at IPL, which spe- 
cifies the maximum number o 
processes that can exist at 
any time in the system. 


PCB Based Process Control Block. 
| External Char (8) Process external name. 
Name 
Parent integer Process ‘creator. 
Child Integer Internal name of dependent, 
related process. 
Left- Integer Links independent, relatcd 
Sipe ng Proseszes, Flouauerısa à prccess 


internal name or zero. 
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K aie 


Right- 


ight Pee ger 
5121109 


РСЕ =з Pointer 
Table Vec 


File 


Le Integer 
Write Cntr 


Sys. Bit (1) 
Process 

Resource  Bit(2) 
Vector Array 
File Integer 
Status 

Message Pointer 
Pointer 

Status Char (8) 
Priority Integer 
Quantum Integer 
Cycle. Integer 
Time 


Processor Integer 


Registers Integer 
Vector 


Links independent, related 
processes; value is a prccess 
internal name or zero. 


Qualifies the Fage Table 
Structure containing the page 
addresses. 


Value is the number of current 
file open reguests for write 
access into a shared file. 


Boolean used to qualify a pro~ 
cess as a system/user rrccess. 


Array used for identifying re- 
source acquisition and access 
authorization. Values are; a) 
##NOACC - access unauthorized 
b) ##ACCES - access authcrized 
c} ##ACQRD - resource acquired 
NEN RE allocated FESOUE-= 

ces have been Sacrificed. 
The array index is a rescurce 
internal nane. 


Shared file usage identifier. 
Values are: a) ##READR - read 
Nr b) ##WKRITR - write or 
read and write access, .c) 
##SACR - Sacrificed writer. 


Qualifies the message ruffer 
allocated to the process. 


Process system status. Values: 

a) @@BLKDR - blocked for a 
resource 

b) QoBLKDT - blocked for time 

C) @@REDYA - biccked for a 

rocessor 
d ASUSPD - process susrended 
e) RUN - process scheduled. 


Process priority. 


Haximum execution time alloted 
for each ailocation of the CPU 
to the process. 


Reschedule tine period fcr a 
recurrent process. 


Processor allocated to the 
process. 


State vector: status of CPU. 
registers saved when execution 
Interrupted ot sere initial 
SEATLSOLLEXEEUTTION. 
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P Based Contains the number of pages 
Table and the page addresses. 


Number_ Integer 
Pages 
Table Integer Contains the location of each 


Array page of a process's code. 


MODULE DESCRIPTION 


A A wë en See A n + msc r ts e it a 


This module has been designed to'be independent and to 
provider sufrticient flexibility for modification. A PCs | 
structure has been defined above which is allocated dynani- 
cally. Data is entered or кекс invoking the module 
at the data-type-Specified entry point. The entry point 
Specifications nave been done separately. 
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MODULE IEPLEMENTATION 


ee ee ee meee eee eee = ü 


AINCLULE NAMCHGR; JO RRE BCE SITRUCTURES *rxr%) 


PCBSTR: EROC OPTIONS (MAIN); 
JE EEk t k kk kk kkk kk kkk kkk Fk k ý k kk 


OPERATING SYSTEM SUBMODULE 1 OF DATA STRUCTURES. 


THIS MODULE IS DESIGNED TO BE INDEPENDENT OF THE OTHER 
0.5. KODULES AND TC PKOVIDE SUFFICIENT FLEXIBILITY FCR 
EASE CF MODIFICATION. A PRIMITIVE PCB STRUCTURE IS 
CEFINED FOR WHICH SPACE IS ALLOCATED DYNA#BICALLY. 
INFORMATION IS ENTERED INTO AND RETRIEVED FROM ELEMENTS 
OF THE SIRUCTURE THROUGH A CALL TO THIS MODULE AT A 
.SPECIFIrD ENTRY POINT DEPENDING ON THE TYEE OF DATA 
{1E CHARACTER, BIT STRING, INTEGER, INTEGER ARRAY). 
SIMPLIFIED PÁGE TABLE IS SIMILARLY DEFINED AND 

ALLOCATED, AND IS LINKED TO THE APPROPRIATE PCB. 
* * ж $ * + +* -- o2 1 Ж A Fk */ 

SINCLUDE GENDEC; 

%INCLUDE CSDCL; 

AINCLUDE PCELCL; 

AINCLUDE CASESTH; 


DCL NUME PAGES FIXED BINARY; 
DEM ECB REF ARRAY (50) POINTER STATIC; 


DCL 1 PCB BASED (PCB PTR) ALIGNED, , 
EXTERNAL NAME CHAR(8), 


2 IMMEDIATE RELATIVES 
3 ( PARENT 
CHILD, 
LEFT SIBLING, 
RIGHT SIBLING )FIXED BINARY, 


2 PCB PAGE TABLE PTR POINTER, 


RESOURCES H 
3 FILÉ SHARE WRITE CTR FIXED BINARY, 
3 VALID SYS PROCESS BIT (4) , 
3 RESOURCE VIC C (126) BIT(2), 
3 FILE STATUS FIXED BINARY, 
3 MESSAGE POINTER POINTER, 
2 EROCESS EXECUTION DATA, 
3 STATUS CHAR (8), 
3 ( PRIORITY, 
QUANTUM, 
CYCLE TIME, 
PROCESSK FIXED BINARY, 
3 REGISTLkS(10] FIXED BINARY (31); 
DCL 1 PAGE TABLE BASED (PAGE TABLE PTR), 
2 NUHBER PAGES FIXED BINAhY 
2 TABLE (NUNE, PAGES REFER (NÜMBER_PAGES)) 
FIXED BINARY (15) ; 





INITIALIZE PCB REFERENCE VECTOR TO NULL AND LAEEL 
INDICIES. THIS INITIALIZATION IS INTENDED TC BEE 
DCNE AT IPL TIME BY THE SYSTEM SUPERVISOR. * / 


pm 


ECDSTRURT> ENTRY ; 
DECLC P FIRSI BIT(1) STATIC INIR('1"'B); 


/*** DISENABLE ALL INTERRUPTS *x*/ 
CALL FRIKITIVE INTERKUPT DISENABLER(ALL INT,SAVEINTS); 


ZF FIRST THEN 


DO: 

FIRST = FALSE: 

PCB REF ARRAY = NULL; 
ALLUCATE PCE SET(PCB_ PTR); 
PCE HER ARRAY(1) - PCB PTR; 
PCE PACE TABLE PIR = NULL; 
QUANTUM, 

CHILD, 

LEFI SIBLING, 
RIGHT SIBLING, 

PARENT, 
FILE STATUS, 
FILE SHARE WRITE CTR, 
CYGIE Ve 
PRIORITY = 50; 
VALID SYS PROCESS - TRUE; 
STATUS = GOREDYA; 
EXTERNAL NAHE = VERRHNDLA'; 
RESOURCE-VEC = '00'R; 
REGISTERS = Q; 
END; 
/*** ENABLE THE INTERRUPTS ***/ 
Bere, INTERRUPT ENABLER (ALL_INT,SAVEINTS) ; 
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ENIRI POINT SPECIFICATION.. 


MODULE NAME: ECB STRUCTURES ENTRY NAME: GETPCB 


PARAMETERS | 
INBUl_____GUIEUT_ __ZYPE______CONIENTS______.___________ 
Parent Integer Process creatcr. 
Right ` Integer €hild of the parent---may be 
Sibiing Zero. 
External. Char (8) External name cf the process. 
Name 
Priority Integer Priority ot the process. 
Sys_Proc Bit (1) System/User process bcolean. 
Values: #05 cr USER. 
State Integer Initial state vector used to 
Array set the CPU registers ugcn 
allocation of a processor for 
execution. 
Internal_ Integer Process internal name. 
Name - 
Cycle Integer keschedule time period fcr a 
Time recurrent process. 
Error Integer Error condition code. Values: 
a) 205 - PCB space unavailable 


AE E SE LEN dno A RA e 
This a Pens is invoked when a new process is being 
created. CE 1s allocated and initialized provided Space 
is availatle and the number of allowable processes ` 
NEE S pot GxCeoded. A process internai Pane 15 | 
returned to the invoking module and PCs reference pointer is 
saved in the FCB reference vector until the process is 
destroyed. The entry point is restricted trom direct access 
by a user process. 





ENTRY POINT IMPLEMENTATION 


— com qa ee ce VONJ Q gg mmm mg w чың ee — cp o mms n on 


MEM OMEN IE ENT EEE BEN Gk kok ok Fk Ok 
THIS ENDLRY POINTMI5 INVOKED WHEN A NEW PCs IS TO BE 
ALLCCATED AND INITIALIZED. AN INTERNAL NAME IS 
ASSIGNED AND A PCS ALLOCATED IF SPACE IS AVAILABLE 

IF THE NUMBER OF ALLOWAELE PROGRAMS IN THE SYSTEM 


5 NCT EXCEEDED... -PRESENTLY 50). */ 


GETPCB: ENTRY (FATHER, BROTHER, EXT NAME, PRI, ITS PROC,STATE, 
INTERNAL NANE, CI LE; ERRÓR) 


DCL (FATHER,BROTHER,PRI,CYCLE,INTERNAL NAME) 
FIXED BINARY; 

DCL EXT NAME CHÀR 8) ; 

DCL SYSTEROC EIT (1); 

DCL STATE (*) FIXED BINARY (3 


1); 
/*** DISENABLE ALL INTZRRUPTS ***/ 
CALL PRIMITIVE_INTERRUPT_DISENABLER (ALL_INT, SAVEINIS) ; 
/* GET INTERNAL NAME. ¥*/ 

DO INTERNAL_NAHE =1 TO FCB_LIM 

MIT (PC3 REF ARBAYT(INTERNAL NAME)-- NULL); 
IF (INTERNAL NAME > PCB LIN) THEN 

INTERNAL NAME = 0; ERROR = 205; GO TO R1 
D; 


/* ALLOCATE AND INITIALIZE THE PCB. %/ 
ALLCCATE PCB SET ( PCB_PTR); 
PCE KEF Nee PTR; 


PCB_EAGE TABLE N 
SIBLING, PROCESSR = 0; 
$ 


RESCURCE VEC = 5 

STAIUS= @a@SUSPD; 

PARENI=FATHER: 

RIGHT SIBLING=BRCTHER: 

PRIORITY=PRI: 

EXTERNAL NAMB=EXT NAME; 

GiGi O TIME-GI CE: 

RESCURCE VEC = '00'B; 

VALID SYS PROCESS = $YS PROC; 

DO I=T 10710: 

REGISTERS (1) =STATE (1) ; 
END; 
R1: 
*** ENABLE TüE IBNTERAUPTS ***/ 

CALL PRIMITIVE INTERRUPT ENABLER(ALL INT,SAVEINTS); 


RETURN; 
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ENTRY POINT SPECIFICATION 


MODULE NAME: PCB STRUCTURES ENTRY NAME: RELPCB 


ere cee ce ee a “m ee ee ee 


PARAMETERS 
Weer  "OURPUT — TYPE CONTENTS “e 
Internal_ Integer Internal name cf the process 
Name being destroyed. 
Error Integer Error conditicn code. Values: 
a) 201 - Invalid process nane. 


b) 202 - Inactive PCB number. 


ENTHY POINT DESCRIFTION _____ кис о nn ENE oe 
Dealiocation of a PCB and associated Page Table, and freeing 
of the internal name ror £utüre use is àcconplished when 
this entry pcint is invoked. Entry is restricted from direct 
access by user processes. 


/* Ж Ж ж ож ож Ж ж kok Kk oe Ok OK OR Rk OK Ok BV kok ok ko koko èk 
DEALLOCATION OF A PCB AND ASSOCIATED PAGE TABLE, AND 
FREEING OF THE INTERNAL NAME FOR FUTURE USE IS 
ACCOMELISHED WHEN THIS ENTRY POINT IS INVOKED. * / 
RELPCB: ENTRY(INTERNAL_NAME,ERROR) ;  - 


/*** DISENABLE ALL INTERRUPIS **»/ 
CALL FRIMITIVE INTERRUPI DISENASLER(ALL INT,SAVEINTS) ; 


uta VERIFY PCB NUMBER AND ACCESS. = 
TP INVALWD(INTERNAL NAME) THEN GO TO R2; 


/* DEALLOCATE THE PC3 AND PAGE TABLE. ¥*/ 
IF(PCE PAGE TASLE_PTR==NULIL) THEN DO; 
PAGE TABLE PTREPCE PAGE TABLE PTR; 
FREE PAGE TABLE; 
REF ARRAY (I TERNAL NAME) =NULL; 
E PCB; 


E. 
R= 
END 
PCB 
ЕКЕ 
R2: 


CALL ERIMITIVE 
kkk E 


INT,SAVEINIS); 
27 
RETURN; 
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ENTRY POINT SPECIFICATION 


MODULE NAME: PCB STRUCTURES ENTRY NAHE: FIND PINAME 


EE El 


PARANETEHS 
TNPUI OUIFUI __ TYP CONTENTS eo m 
PXnane Char (8) Process external name. 
| PInane Integer Process internal nane. 
ELLOT Integer Error condition code. Values: 


a) 206 - Process not found. 


NE ONI VVE TION a 0... 22 
This entry pcint searches the list of active PCB's to find 
Ehe process specified by external name and return the in- 
ternal name ii found. 


Ee E 21 Å- — = io ap A — — — = fe 


FE EI ee Fee, 
Pies ENTRY PONT SEARCHES TRECLIST OF ACTIVE PEB'S 
TO LCCAT& THE PROCESS WITH EXTERNAL NAME ('PXNANE') 
AND RETURNS ITS INTERNAL NAME ('PINAME'). IF NOT 


FOUND AN ERRCRK CONDITION IS RAISED. Ä oy, 
FIND PINANE: ENTRY (PXNAME, PINAMNE, ERROR) ; 


DCL EXNAME CHAR (8 
DCL EINANE FIXED B any; 


Z*** DISENABLE ALL INTERRUPTS ***/ 
CALL ERIMITIVE_INTERRUPT_DISENABLER (ALL_INT,SAVEINTS); 
DO I = 1 TO PCB LIM; 
ie s Tr ENEGA REP. ARRA Yi | 
IF ((ECB PIR = ULL) £ yal TER NALO NAME = PXNAME)) 
THEN DO; E = GO TOTR3: END; 
END: 
ERRÓR - 206; 
PINAME = 0; 
R3: 
/*** ENABLE THE INTERRUPTS xxx/ 
CALL ERIMITIVE INTERRUPT ENABLER(ALL INT,SAVEINTS); 


RETURN; 
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ENTRY POINT SPECIFICATION 


MODULE NAME: PCB STRUCTURES ENTRY NAME: PCBDATA-GENERIC 





PARAMETERS 

AINPU] —— OUIPYI _EYPE_.CONTENİS____—— 

KKK kk XCommon Parameters To Each Entry Pointi ook aiok akak 

PCB Numb Integer Process internal nane. 

Put/Get Bit (1) Operation identifier. Values; 
a) aPUT - enter data in speci- 


fied field of the PCB. 

b) dGET - return copy of. 
data .stored in specified 
PCB field. 


Ficld# Integer PCB field identitier. Values: 
a) aBORNNR - Fage Table refer- 
used to obtain address of a 
specified page. Put opera- 
tion invalid. 
OBRMVEC - Page table refer- 
ence used to get a cory of 
the page table.. | 
QCHILD - PCB Child field. 
@CYCLE - PCB Cycle Tite. 
OPSTAL elle Status. 
ОРИСИ Г = Pile Wprte Cntzrc 
OE тн = Lertzsıblinc. 
MSGPTR - Message_Pointer. 
@NR PGS - Nunber Pages. 
@PARENT - Parent. 
QPE NR - Processor. 
ERARIO ye 
DQUANTM - Cuantun. 
ORESYECZ=Kesouzee vector. 
GE CEET 
QSpATE Hegrssters; 
El = Status. 
YSPRO = Sys_ Process. 
NAME - External, Name. 


I 


e w———F<v rT neo 


Error Integer condition codes. Values: 
Invalid process name, 
Hiaecul ve PCE nunrber. 

invalid field number. 


Invalid operaticn. 


б») DH OD SA LEO bi OO 


Gi zm En m e me "em | "më — — — = — — — чер — er s ee ee e t  - Á g c r ee O ee o ee ep 


These entry points are invoked to enter or get a an CH 
qata from a ECB. They all have at least foui parameters in 
common; the first three which identify the PCo number, put 
Didar operation, and the 2CB field, respectively. The Error 
parameter is tle last parameter in each entry point. 





kkkt kkk kk kkk kkk Generic Entry Points kk 3k KK ROK 


DATCHAR Entry Point Specification. 


PARAMETERS 
E NPUT OUTPUT TAPE 


— — yn Í .s-. r a 


Charparm Charparm  Char(8) 


a er rc me ey SS ES SS SY eee ae XA 


Transfer of character data. 


DATFIXB Entry Point Specification. 


PARAY ETERS 


INPUI _ . OUIEUT . . TYPE . 


Fixbparm Fixbparm Integer 


~CONTENTS__ 


ee ee ee “s= ja 


Transfer of integer data. 

@PUT unauthorized in fields: 
QBRNVEC and dNR PGS. aGET not 
authorized in field dERMVEC if 
tne Page Table is unallocated. 


DATRIT2 Entry Point Specification. 


PARANETEES 

INEUI —..OUIPUI . IYPE o. 
L Lim Integer 

U Lim integer 
B2ary B2ary Bit (2) 


Array 


CONTENES 


em, чык e ee wF Ái ee eee ee — s asss 


Array lover limit. 
Array upper limit. 
Transfer of bits data into or 


from an element of, portion of 
or the entire resource vector. 


DATAPYS Entry Point Specification. 


PARALETERS 

INPUT DEL .— TYPE — 
L Litt integer 

U Lir Integer 
SEDary Sr Pary Integer 


Array 


CONTENTS 


we Zn me. ee s raOO sü] s “m Qm ee Qs mG sm — EE aep ee ee 


Array lower limit. 
Array upper limit. 


Transfer short integer arra 
data into or from an element 
OO ol op or the entire 
Page Table Vector. OGET 25 not 
authorized if the table is not 
allocated. 


DATAPYL Entry Point Specification. 


PARAMETERS 


INPUT ОШ ОТ TYE re 
LFBary Par y luteger 
Array 


CONTENTS 


a vi =< <— — nn u emm, ve e ` cupio шшс oeque andi “m O A A eee ee 


Transfer long integer array 
(tam liao or Ton the PCE 
Ipod EE 








DATEIT1 Entry Point Specification. 


PARAMETEBS 
ПОТ NOUTPEDT __ ТҮРЕ ___ 
Bitiparn Bit (1) 


_CONIENIS___ 


— — — — — r — —  — ee A а 


Transfer a ses of data from 
PCB field Sys Process only. 
Field initialized when process 
created. 


DAIPIR Entry Point Specification. 


emm ee ee — H YOA — a — —— 


Ptrparm Ptrparn Pointer 


E ECINT DESCRIPTION 


—— emm A ee ee ee ge ee oe ee eee ee Se ve 


The entry point is selected 


CONTENIS 


O E vr a ae n A se A ee em ee dE 


Transfer pointer data identi- 
fying the process's message 
buffer. 


a ee ee ee ee ee eee eee ee ee ee eee 


y a preprocessor generic pro- 


cedure which determines the appropriate entry point by the 


number oí arguenents in tne 


call and their data type. 
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/* * * BF ж ож ж ж ож ж ж ж Ж ж Ж Ж ж KK KK KK KR OK OK * 
Tie cObuonrrnGc ENTRY POINTS ARE INVOKED TO ENTER IN 
ОКЫ КЛ ө О РҮ КАО ЛГА FROM A PCB. THEY ALL HAVE AT 
LEAST FIVE PARAMETERS. CHE FELRSA TS THE PCE NUMBER 
THE SECDIBZSPECTEFES IF THE OPERATION IS A PUT OR A 
GET, ITEM IRDTZDENTIEIES THE FIELD, THE NEXT 


PARAMETERS ARE DATA PARAMETERS, AND IHE LAST 
— L a IS AN seg, PARAMETER. 
* TS; x ж ж ж Оз t * *t жю ж x< < Gk. * жи 


DCL (ECB NUMB, FIELD#,ERROR) FIXED BINARY, 
PUTGET BIO 

DCL. (L LIY M) FIXED BINARY; 

LCL INDX "FIXED BINAR 


DCL CHAK_L_LIM FIXED BINARY STATIC INIT(1 , 
CHAR.U.LIM FIXED BINARY STATIC INIT(2), 
FIXE-L-LIM FIXED BINAKY STATIC INIT(1), 
FIXETUTLIM FIXED BINARY STATIC INIT(12), 
BIT2_L_LIM FIXED BINARY STATIC INIT(1), 
EIT2-U-LIM FIXED BINARY STATIC INIT(1), | 
RES VEC U LIH FIXzD BINARY STATIC INIT(120), 
ARYS_L_LIA FIXED BINARY STATIC INIT(1), 
ARYS U_LIM FIXED BINARY STATIC INIT (1), 
ARYL~L~LIM FIXED BINARY STATIC INIT(1), 
ARYI_U_LIN FIXED BINARY STATIC INIT(1), 
EITÍ L LIM FIXED BINARY STATIC INIT(1), 
PITT -U LIM FIXED BINARY STATIC INIT(1), 
ETR L LIM FIXED BINARY STATIC INIT(1), 

PIR U TIM FIXED BINARY STATIC INIT(1); 


/* * * жож жож жож жож ж ож жож жож жож жож жож ох ож ох жож ж 
THIS ENTRY POINT IS INVOKED TO ENTER OR GET A COFi 
GF CHARACTER TYPE DATA. xf 
DATCHAR: ENTRY (PCB _NUNB, PUTGET, FIELD#,CHARPARN, EREOR) ; 
DCL CHAREARN CHAK (8) ; 


/*** DISENABLE ALL INTERRUPTS x 
CALL FRIKITIVE INTERRUPT DISENABLER(ALL INT,SAVEINI5); 


A MERIEYAPCH ee EE “ANT OPERATION. */ 


IF (INVALID (Le AR U LIN HEN GO TO RU; 
BILD? CH Aa ` 14) d (FIELD COCHAR L EN THEN 
, 
ERROR = 203; 
GO TO RU; 
END; 
Ae E NDEZ INTO ITHE CASE STATEMENT IS CONPUTED TC 
LDERDECT THE FIELD AND OPERATION DESIRED 
JNDX < 2% FIELD% 
IF (DPUZGET - GET) THEN INDX = INDX-1; 
DO ACTION OF СА); 
NS EM EV CRARPARO — STATUS; ENDCASE; 
SEN E(2) 2 STATUS = CHARPARA! ENDCASE" 
BRSE/3), SZSEHAKPAKS = pZTERNAL NAÁME; BPNZCASE; 
CASE(U): EXTERNAL NAME - CHEARPARDB; ENDCASE; 
ANDE CASES; 
R4: 
Me ENABLE THE INTERRUPTS "***/ 
a ECO INTERRUPT ENABLER (ALL INT, SAVLINTS); 
FEFETURN; 
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/* * * % ж ож Ж RK OK KR k * KK KK KK KK KOK kk ok hou 


THIS ENTRY POINT IS USED TO ACCESS INTEGER 
(FIXED BINARY) TYPE DATA. */ 


DATFIXB: ENTRY (PCB, NUMB, PUTGET, FIELD#,FIXBPARM, ERROR) ; 
LCL FIXBFARM FIXED BINARY; 


/*** DISENABLE ALL INTERRUPTS “++ 
CALL FRIMITZVE INTERRUPT DISENABLER(ALL INT,SAVEINTS); 


A VERIFY PCB NUMBER, ACCESS AND OPERATION. */ 
1F E VALID(PCE mer GO TO R5: 
IF ((FIELDE <  FIXB LIH) | (FIELD# > FIXB_U_LIM)) THEN 
DO; ERROR = 203; TO TO RS; END; 
/* THE INDEX INTO THE CASE STATEMENT IS COMPUTED TC 
REFLECT THE FIELD AND OPERATION DESIRED ke 
INDX = 2 * FIELD#; 
IF (LUTGEL = @GET) THEN INDX = INDX - 1; 
DO ACTION OF CASE (INDX); 
CASE(1): FIXBPARH - PRIORITY; ENLCASE; 
CASE(2): PRIORITY = FIXBPARN; ENDCASE; 
CASE (3) : FIXBPARM = QUANTUM;  ENDCASE; 
CASE(4): QUANTUM = FÍXEPARM;  ENLCASE; 
. CASE (5) : FIXBPARM = PARENT; ENDCASE; 
CASE (6) : PARENT - FIXSPARM; ENDCASE: 
CASE(7): FPIXBPARM = CHILD; ENDCASE; 
CASE(8): CHILD = FIXBPARÍ; ENDCASE: 
CASE(9): PIXBPARN - LEFT SIPLING;  ENDCASE; 
CASE(10): LEFT SIBLING ="FIXEPARM; ENLCASI; 
CASE(11): FIXSPARN = RIGHT SIBLING; ENLCASE; 
CASE(12): RIGHT SIBLING = FIXBPARM: ENLCASE; 
CASE FE FIXBPARM = PROCESSR; ENDCASE 
CASE (14): PROCESSR = FIXBPARM: ENECASE; 
CASE (15) : IF "Ce PAGE_TABLE_PTR - NULL) THEN 
IXEPARH = 0; 
"PAGE "ABLE PTR = PCB PAGE TABLE PTR; 
FIXEPARM =" NUMBER ` PAGES 
END; 
EN COA St: 
CASE(16): ERROR = 204;  ENDCASE; 
CASE(17): IF (PCP PAGS TABLE PTR = NULL) THEN DO; 
IXEPARH 9 0; ERROR = 204; 
END; 
ELSE DO; 
PAGE TABLE, PTR - PCB PAGE TABLE PTR; 
IP ((FIXBPARM < 1) 
(FIXBPARI > NUHBER PAGES)) THEN 
BRROR = 204; 
ELSE FIXSPARM = TABLE (FIXEPARH) ; 
END; 
ENECASE; 
CASE(18): ERROR = 204;  ENDCASE; 
CASE(19): FIXBPARH = PILE STATUS;  ENDCASE; 
CASE(20): FILE STATUS = FIXBPARM:  ENLCASE; 
CASE(21): FIXBPARS = FILE SHARE WRITE CTa;  ENLCASE; 
CASE (22) : FILE SHARE WRITE CTR = FIXEPARN; ENLCASE; 
CASE(23): FIXBPARN = CYCLE TIME; ENDCASE; 
CASE OU z CYCLE TIME = FIXBPARM; ENDCASE; 
END CF CASES; 
RS: 
/%%% ENABLE THE INTERRUPTS ***/ 
CALL PRIMITIVE_ INTERRUP T ENABLER (ALL_INT,SAVEIN1S) ; 
RETURN 
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J} X + k k kkk kkk kk kkk kkk kk kkk k k kk k 
Dio NERY POINT IS USED TO ACCESS EIT(2) ARRAY DATA 
| 4 


DAS BIT2: K G R ee eet CaM BBY 


DCL E2ARY(*) BIT (2); 


*%%* DTSENABLE ALL INTERRUPTS ee 
CALL PRIMITIVE INTEKRUPT DISENABLER(ALL_INT,SAVEINTS) ; 


I 
/* VERIFY PCB NUMBER, ACCESS AND OPERATION. */ 
D(PCE NUKB)) THEN O R6; 

# < BIT2 L LIM) | (FIELD# » BIT2 U LIM)) THEN 


Ir 
TE 


E 


N 
F 
R, 
GO 
(F 


Omm, 
be act 
bx a 
Die 
OH 


L 


205; 


kri 
ree Oot Hte 
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mno W MI OON. a di Obe H 


О 
T 
LIM « 1) | (U LIM » RES VEC U LIM)) THEN 
O 


txi 
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sO 
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mH ы +з 
20 ON WH 


чк 

ed + 
Uta 
H rry 

єн 


II J 


= 
© 
mm — Pari 
C 
bj 


A 
<a o mmm 


tA ri 
s e] 
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DO A 
,RESOURCE VEC 


MY 


DE 


Ob 
> = 


ENICASE; 
END CF CASES; 


R6; 
JAHRE ENABLE THE INTERRUPTS ***/ 
SEL PRIMITIVE INTERHUPI ENABLER(ALL IN1,SAVELNIS) ; 
RETUEN; 
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fe eR RK RK Жж ж ож Х ж ж RK KR ж о Жж Ж ж ж ож Жж ж ж Жж ж Ж ж 
THIS ENTRY POINT IS USED TO ACCESS FIXED BINARY (15) | 
ARRAY DATA 


' DAT ARYS: o EE E, 
kh), 


DCL SFBARY(*) FIXED BINARY; 


/*** DISENABLE ALL INTERRUPTS %«x/ 
CALL FRIMITIVE INTERRUPT DISENABLER(ALL INT,SAVEINIS); 
/* VERIFY PCB NUMBER, ACCESS AND OPERATION. */ 
IF (TEVALID(BCR Bo THEN GO TO R7; 
IF ( (FIELDS < ARYS IM) | (FIELD£ 5 ARYS U LIM)) THEN 
ERROR - 203; 
GO TC R7; 
END; 
des THE INDEX INTO THE CASE STATEMENT IS COMPUTED TC 
'EFLECT THE FIELD AND OPERATION DESIRED 
INDX = 2 * FIELD# ; 
IF (PUIGET = OGET) THEN INDX = INDX - 1; 
DO_ACTICN_OF CASE (INDX) ; 
ZASE(1)7 IF (PCB PAGE TABLE. PTR = NULL) THEN 
RROR = 204 
ELSE DO: 
PAGE TABLE PTR = PCB PAGE TABLE PTR: 
IF (Tr. DIM Bun | LIM > NUMBER, PAGES)) 
THEN ERROR 
ELSE 
DO I = L LIM TO U LIM: 
SFBARYUI) = TABLE(T): 
END; 
j END; 
ENLCASE; 
CASE(2): IF((L LIN >= 1) | (U_LIM< 1)) THEN DO; 
EPROR 204; 
RETURN; 
END; 
IF (PCb PAGE TABLE PIR += NULL) THEN DO; 
PAGS TABLE PTR = PCB PAGE TABLE PTR; 
FREE PAGE TABLE; 
END; 
NUMB PAGES = U LIM; 
ALLOCATE PAGE TABLE SET(PAGE TABLE PTR); 
PCB PAGE TABLE PTR = PAGE TAELE PTR; 
DO 1 2 1 so U LIN: 
TABLE (1) = SFBARY (1); 
END; 
ENLCASE: 
„JEND_OF_CASES; 


/*** ENABLE THE INTERRUPTS ***/ 
CALL ERIMITIVE_INTERRUET ENABLER (ALL_iINT,SAVEINTS) ; 
HETURN; 
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M WERL OK x ж ж ж ж ж ж ж ж ж Ж ж ж ж жЖ K ж ж ж ж ж Ж ж Ж ж ж 
THIS ENGRY POINT 1S USED TO ACCESS FIXED 3INARY (31) 
ARRAY DATA. Ce 


DATARYL: ENTRY(ECB_NUMB,PUTGET,FIELD#,LFBARY,ERROR); 
DCL LEBARY(*) FIXED BINARY(31); 


/*** DISENABLE ALL INTERRUPTS xxx 
CALL PRIBITIVE_INTERRUPT DISENABLER(ALL_INT,SAVEINTS) ; 


_DISE 
14% VERIFY PCB NUNBER, ACCESS AND OPERATION. */ 

[evi D(PCB NüNB)) THEN GO TO RB; 

((EZEID# « ARYL L LIM) | (PIELD$ 5 ARYL U LIE)) THEN 


GTC R8: 


COMPUTED TC 


¿al 
кж ARO 
r3 


[N 
“Ors tel 
v 
tl ave 
O 


REGISTERS (1) ; 


ae FA, Gitt 
DI 


? DO I= O 10; 
REGISTERS (I) 2 LFBARY (1) ; 


N s 


R8: 
MOE ENABLE Tit LNTERRUPTS +4 / 
CALL ERINSITIVE_INISKRRUPT_ENABLER (ALL_INT,SAVEINTS); 
RETURN; 
VE EEE ж ж Жж ж ж EE EE E E 
THES ENTRY POINT IS USED TO- -ACCESS BII(I) DATA. */ 


DAYBIT1: ENTRY (PCB. NUNE, PUTGET, FIELD#,BIT1IPARH, ERROR) ; 
BCL EIT1FARM BIT(1); 


TS xx**/ 
ALL INT,SAVEINIS); 


RRUPI 
BLER( 
ACCESS ANL OPSRATION. #7 
TO R9: 
ut DEN > BITIT UTLIN)) THEN 


CALL ERIEITIVE INTIRE 
Y 


IDETSSCODUPUTED IC 
ILED FA 


Ani = VALID SYS PROCESS: ENDCASE: 
= 204;  ENDCASE; 


RS: 
{fees EN 
CALL ERIMITIVE 


PTS xxx 
a z (À 
RETURN; 


LL I6T,SAVELNIS): 





/* * * NN E 2 X *Ж* ж ж ж ж ж ж ж ж жЖ ж ж ж ж 
LWES ENTRE POINT IS USED TO*ACCESS EOINTER DATA. */ 


DASPTR: ENTRY(PCE NUNB,PUTGET,FIELD#,PTRPARM,ERKOR) ; 
DCL ELTREARM POINTER; 


_ /*** DISENABLE ALL INTERRUPTS **x/ 
CALL ERIMITIVE INTERRUPT DISENABLER(ALL_INT,SAVEINTS) ; 


/* VERIFY PCB NUMBER, ACCESS AND OPERATION. */ 


IF E NUND )THEN GO TO R10; 
d PT  LIM) | (FIELD£ » PTR U LIM)) THEN 
ERROR = 203: 
GO £O R10; 
END; 
/* THE INDEX INTO THE CASE STATEMENT IS COMPUTED TC 
REFLECT TBE FIELD AND OPERATION DESIRED */ 
INDX = 2 * FIELD#; 
IF (EUTGET = @GET) THEN INDX = INDX - 1; 
DO ACIION OF CASE (INDX); 
ү = PTRPAKRM = HESSAGE POINTER; ENDCASE; 
CASE(2): MESSAGE POINTER = PTRPARM;  ENDCASE; 
ZND OF CASES; 
R10: 
/*** ENABLE THE INTERRUPTS ***/ 
CALL PRIMITIVE INTERRUPT ENABLER (ALL_INT „SAVEINZS) ; 
RETURN; 
LOCAL FROCEDURZ 
/* * Ж % ж ож ож ж ож ж ох Жж ж Ж EE 
INVALID CHECKS THE PCB# PASSES TO INSURE THAT THE 
PROCESS CONTROL ELOCK IS CURRENTLY ACTIVE AND ALSO 
SETS THE POINTER TO THE PROPER PCB FOR DATA ACCESS, 
z 
DCL INVALID ENTRY (FIXED BINARY) RETURNS(BIT(1)) ; 


INVALID: EROC(PCE#) RETURNS (BIT (1)); 
DCL ECB# FIXED BINARY; 


IF((PCB¢ = 0) & (PUIGET = AGET)) THEN 
PCB# = CUKRENT_ PROCESS (PROCESSOR) ; 
IF ((ECB# « 1) | (PCb# 2750)) THEN DO; 
KROR = 201 ; 
RETURN (TRUE); 
END; 
PCB ÈTR = PCB REF ARRAY (PCBi); 
IF ECEB FIR = NULI) THEN DO; 
ERROR - 202; 
RETURN (TRUE); 
END, 
RETULN (FALSE); 
END LNVALIL; 
END PCBSTR; 
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MODULE SPECIFICATION 


NAME: RCE HANDLER TYPE I PRIMITIVE 


PARAMETERS 
INPUT OUTPUT TYPE CONTENTS 


aM amam mmm see cm um “s&- “EN amas “n Ñ u s= s m n n s (ma = mm ie ou: ere шш O Á mr emm se Pata === ne Ly eu. "s mak. = am са: < =s sam ee a Re no a nye 


Parameters Specified With The Entry Point Specification. 


wae CALIS MADE TO OTHER MODULES 


MAHEOO — PARANETEBS —— EGSPOSE 90000020 _ 
Interrupt Interrupt Number, This module is invoked to dis- 
Disabler Save Vector able all interrupts while 


RCB Handler is in execution. 
ine status of tne interrupts 
is saveđ in the Save Vector. 


Interrupt Interrupt Number, This module is invoked tc re- 

enabier Save Vector enable ali interrupts which 
were disabled ns current 
module in execution. 


EXTERNAL CALLS MADE BY OTHER MODULES 
NAME BaAPOSE 


Invoked by other primitives and only systen processes. 


DATA STRUCTUKES USED 
EL 


ШОКЕ Н EDEN DYE PURPOSE/YALUES 2 L Z. 
Saveint Bit(1) A used to save the status 
Array of the interrupts; arguement 

in call tó Disabler and 
Enabler. 

Rescurce_ ” Structure This structure has been de-. 

Control. Signed tono torcer administrative 

Block and operational data used in 


tae managing ci system resour- 
ces; 4.e., Semapnores, Files, 
Devices, and data storage con- 
tLalners (PCT:!s). 


Assigned Bit(1) Determines if tne resource 
Control Block is assigned to 
a resource. 


Creator Integer Process that created the RCB. 

Owner Integer Process that has been assigned 
Control of the resource. 

Ext_Name Char (8) External name of the rescurce. 

Device_ Bit (1) Device access state. Values; 

Status i ©з ОЕ NE KO muce 15 active 
D) £AHOLD - access to tiles 


and PCT fol this device is 
Dobeauthordje ed. 

С) БОС appiicable for Setra- 
phore RUB's. 
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Device Integer 
Iname 

Shared, Integer 
Private 


Cntr Size Integer 


PCT Name Char(8) 
Open_File Integer 


File Type Integer 


Left Que Pointer 


Right_Que Pointer 


Device internal name. 


Resource access classification 
Values: a) ##SHRD or ##PREIV - 
shared or private resource. 


a) Semaphore - Buffer, Job a, 
Print Jobs, etc. counter. 


Device - not used. .. 
PCT - file space available. 


C 
d 


PCT external name. 


| File - file length. 


a) ##NOVAIL - file unavailable 

b) ##AVAIL — file available 

C) ##READ - file opened for 

: P oni oniy 

d) tfWRITE - file opened for 
writing only. 


SEHR for files. Values: 


Not applicable for semaphore 

Or deVice resources. Vaiues: 

a) ##TEMNPF - temporary file or 
type tiie aliowed on ECT 

b) ##PERMF — permanent file or 
SID fiie allowed cn ECT 

C) $STORPF - both file types 

allowed on PCT. 


Qualifies queued messages. 


a} Semaphore ~ outstanding 
rocess request messages 
b) File - current file ofen 
requests satisfied. . 
c) Device - current device 


access requests satisfied 
d) PCT - not used. 


Qualifies queued messaaes. 
a) Semaphore - outstanding 
rocess release messages 

b) File - outstanaing file 
open reguests | ‚ 

с) Device - outstanding device 
access requests i 

d) PCT - outStanding file 
creation requests. 
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L_R_Queue Based This structure is used tc save 
data rejuired for the manage- 
nent of the resources and the 
matching oz messages. 


From Integer Internal name cf the process 
doing the Reguest or kelease 
Saved in the Left/Right queue 
for Semaphore BRCB's, resrec- 
tively. internal name oi the 
process о о Tequest- 
ang access to a file or device 
resource; or file creation. 


To Integer Internal name cf the process 
expected to do a Release or 
Request, saved in a Semaphore 
Leit/kight queue. 
Also used to save the Sera- 
hore to be used in an answer 
E. | .O a message. 
Priority Integer Precedence of the process. 


File Data Integer Not applicable for Semaphore 
or Device RCE's. Values: 


a) Semaphores - not applicable 
b) Devices - nct applicatle 
c) Fije Left Que - ##REAL or 


## WRITE (file opened cn a 
read or write for a process 
identified in the FRÜF 
Field). 

Oerle Right que. ~ F#KE AD OE 
##WRITE, UUDEADA Or ##WRITÀ 
(Outstanding read/write 
Sa reguest Sacriticed), 
#@READS or ##WRITS (read/. 
Write opened request sacri- 
I1ced), or «*s5sWRITH (out- 
Standing write-open reyuest 
for a non-owned Sharea file 

eE) P(T kigat Que - dumny file 
internal name for outstand- 
ing file creation requests. 


Hsg Ptr Pointer À) Semaphores - qualifies the 
message buffer of a process 
doing a keguest Or a tenmp- 
Ed message buffer for 
outstanding Releases 
b) Not used in the other type 
KCB guedes.: 


Q Top Pointer Backward queue link. 


Q Eottom Pointer Forward queue link. 


EE I ee ee ee 2 
This primitive has been implemented to provide resource 
management facilities to tne various system processes and 

BE Bryce eines ervna Ces include creating and destroying 
usomHrce Control "Pbiocks; entering and getting data; ano 
controlling access to the various type resources. The entry 
КОЛО ANO. the data structures defined above have been 
Specificd serarately. 





RINCLUDE NAHCHGR;  ,Pe*€***  RCB HANDLER *****/ 
* ж ж Ж x ж ж ж ж ж ж ж ж MON x k x ж ж Жж ж ж ж ж 
HIS PAINITIVE HAS BEEN IMPLEMENTED TO CENTERALIZE TEE 
LOCAYICN CE RESOURCE DATA AND TO HIDE DATA STORAGE 
METHODS. IL PROVIDES THE INTERFACE TO PROCESSES AND 
PRIMITIVES REQUIRING SUCH SERVICES AS CREATING RESOURCE 
CCNTROL BICCKS; DESTROYING RCBS; ENTERING CR ACCESSING 
DATA; WANIEFULATING QUEU ENTRIES USED TO STORE DATA 
CONCERNING AVAILIBILITY, ACCESS, AUTHORIZATION, ALLOCATION 
AND DEALLOCATION Of THE RESOURCES: AND MATCHING OF 
INTERPEOCESS COMMUNICATION MESSAGES. x / 
PRIMITIVE RCE HANDLER: PROC CPTIONS (MAIN) ; 
&INCLUDE GENLEC; 
%INCLUDE CSDCL; 
#INCLUDE RCELCL; 
&INCLUDE CASESTH; 
/*** RESOURCE CONTROL STRUCTURE ***/ 
DCL 1 RESOURCK. CONTROL BLOCK (120) STATIC, 
2 ASSIGNED BITJI) INIT((120) (1) '0'B), 
2 CREATOR FIXED BINARY, 
2 OWNER FIXED BINARY, 
2 LEFT,_QUE POINTER, 
2 RIGHT QUE POINTEK, 
2 EXT NANE CHAR(8), 
¿ DeV iC hb Sr 5 US B re 
2 DEVICE INANE FIXED BINARY, 
2 SHARED PRIVATE FIXED BINARY, 
2 CNTR SIZE FIXED EINARY, 
2 PCT RA k CHAN (2), 
Ž OPEN. PILE PIXAD BLNARY, 
2 FILE TYPE FIXED BINARY; 
DCL 1 L & QUEUE BASED(LRQ PTR), 
2- CTCP POINTER, 
2 FROM FIXED BINARY, 
2 10 FIXED BINARY, 
2 PRECEDENCE FIXED BINARY, 
2 FILE DATA FIXED BINARY, 
2 KSG PTR POINTER, 
2 Q BOTTOM POINTER; 
DCL PRI HIP DAI ,DATA,RINAME) FIXED BINARY; 
LCE EEROR FIXED BINARY 
DCL (HEO REL,O1) Ват (1 
DCL (MSGETR, STAKT,TEH2) ' EGINTER; 
/*** LOCAL SUSBOUTINE ENTRY POINIS at 
DCL ` VALID ENTRE (FIXED BINARY) RETURNS (BIT( 12] 
REMOVEQ ENIRY(FIXED BINARY,BI Tf ) ¿E POINTER,POÍNTER), 
INSERT ENTRY(FIXED BINARY, BIT (1), POINTER, 
FIXED BINARY), 
LOOKUP ENTRY (POINTER, FIXED BINARY, FIXED BINARY), 
QUEECSIT ENTRY (FIXED BINARY, POINTE) ; 
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ENTRY POINT SPECIFICATION 


KODULE NAME: RCB_HANDLER 


— «e a «aa MD ee c — oe tit 





PARAMETERS 
INPBUI_____OUIBUT___ _ZYPE_____ 
Type Integer 
RXName Char (8) 
Owner Integer 
size Integer 
Or P Integer 
Mounted Char (8) 
Dev Name Integer 
Open Integer 
T_File Integer 
hIName Integer 
Error Integer 


ESTAY EOTNT DESCRIPTION 


emcee ee men e e o Re m. ee ie SC. m= a kaye =. Amam 


_CONTENTS__ 


ENTRY NAGE: CREATE RCE 


Specifies resource c to be 
created. Values are: #DEVICE, 
#FILE, #SEAFOR, or #PCT. 
Resource external name. 
Ouner's internal name. 


File length or number of re- 
Source units. 


Shared or private resource. 


/pCT exterral name - for File 
and Device resources only. 


Device internal name - fcx PCT 
and File resources only. 


File status - ##AVAIL or 

##NOAVL. 

$) Files - ##TEMPF or ##EERMF 

b} PCT's -— ##TEMPF, ##EERMF or 
##TORPF. 


Resource internal nane. 


Error condition code. Valucs: 


a 0 invalid resource type 
De t02 nee unavailable 

C) 103 - invalid resource name 
d) 104 - unallccated rescurce. 


PA «at ee ee ume) ee es “mms ee ee mm “=m ss a ee ee ee ees es es es ae ee ee ee I 


Gis entry peint is used to create an RCB of the type 


Specified and to return,the internal name. 


Oniy system 


processes may invoke this entry point. 
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ENTRY POINT IMPLEMENTATION 


Ж mI жое у= орк тео A eer ` mmm, 


E E E Жж ож ж ж о Ж Ж ж ож ж ож ж ож ж E 
THIS ENTRY FOINT TO RCB HANDLER IS UTILIZED TO CREATE AN 
RC3 OF THE TYPE SPECIFIED; TO ENTER THE DATA IN THE 
VARIOUS RCE FIELDS; TO RETURN THE RCB INTERNAL NAME, 
"RINAME"; AND TO RETURN AN ERROR CODE, "ERROR", */ 
CRZATE RCB: ENTRY(TYPE,RXNAME, CHNR, SIZE, S OR, P, HOUNTED, 
DEV NAHE,OPEN,I FILE,RINAME, ERROR) ; 
DCL (TYPE, OHNR,SIZE, ,DEV NAME,OPEN,CREATR,LIMIT,I) 
IXED BINARY; 
DCL I ae CHAR (8 Ж 
2CL (S OR P,T FILE) FIXED BINARY; 
DCL SYSPRO BIT(1); 
/*** DISENABLE ALL INTERRUPTS **x 
CALL ERIBITIVE INTERRUPT DISENABLER(ALL INT,SAVEINTS); 
CREMIH- CURRENT. PROCESS (SYS PROCESSOR) ; 
IF ((IYPE < 1) N: (TYPE > 7 THEN 
ERROR = 101; GO TO RETURNI; END! 


DO ACTION OF CASE (TYPE); 
CASE (1): I=1; LIMIT=SEM LIMIT; ENDCASE; 


* 


CASE(2): I-DEV L LIMIT; LIMIT-DEV U LIMIT; ENDCASZ; 

CASE(3): I-FILE i LIMIT; LIHMIT-FILE U LIHIT; ENDCASE; 

CASE(4): I- PCT L LIMIT; LIMIT= PCT U LIHIT; ENDCASE; 
ri D E CASES; 

DO WHILE (ASSIGNED (7) ) & (I <= LIHIT)); I =I+1; END; 

IF (I > LIHIT) THEN DO; ERROR=102; GO TO RETURN1; END; 

ASSIGNED(1) = TRUE; 

CREATOR (I) = CREATR; 

OKNER (I) = OWNR; 

ENT QUE (1) , RIGHT QUE(I) = NULL; 

EXI1 NAME(I) <— RXNAHE; 

DEVICE INA4E(I) = DEV NAME; 

DEVICE STATUS(L) = $400; 

SHARED PEIVATE(I) < S OR P; 

CHIR SIZE (1) - SIZE; 

PCT TAKE ) - MOUNTED; 

OPEN FILE(L) = OPEN; 

FILE ТҮРЕ (ТЇ) = T FILE; 

RINAHE = 1; 
GO TC KETURNA; 
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MODULE NAME:  RCB HANDLER 


ENTRY POINT SPECIFICATION 


ENTRY NAME:  RCB MATCH 


— a ea zi oi it a poo 


CONTENTS 


Í = o a A  — wm ct ce т=ш= ee mamie ts eg er Ar co e ee ët, EE, LEE ve es ee — — =s ff vir ee ee CENE CREME mu iu ee eee —— — — — 


Addressor 


Integer 


Adäressee Addressee Integer 


Semaphore 
N EEr 
Qi 
Match 
Error 


EXTERNAL CALLS MADE BY OT 
р О 


NAHE. 
Allocator 


Pee dÉ emp P aM a n a D. a 


Integer 


Pointer 


Bit (1) 


Bit (1) 


Integer 


ae 
-— 


HER 
2b. 


internal name cf the process 
which did a Request/Release. 


To which process the Rene 
or Release was adaresse 


Internal name of the message 
semaphore used in the Reguest 
or Release. 


Cualifies the Requestor's mes- 
Sage buffer ox tne temporary 
buifer from an unmatched 
Release. 


Left or Right ueue identifier 
Values: #LEFT for an lnecming 
Request or #RIGHT for an in- 
comıng Release. 


Boolean which identifies to 
the invoker if a match has 
been found. 


Error conditicn code. Values: 


a) 103 - invalid resource name 
b) 104 - unaliccated resource. 
MODULES 


pb vg vm on "ëmt vn mr vr эшш: сз e me et ш, шшш mn mr E e SE e ER emer ep pep шер еш Co 


To determine if there is an outstanding 
Release or Request which matches a cur- 
rent Request or Release, respectively. 


ee ee er E A A A ee — s = ' mk ms u m ur s x w em me cn ros apis aus ces camo ss ny ee iani s s m m op GE ee e ee a SÉ vg eme 


This entry pcint has been implemented to facilitate the 
allocaticn of resources and matching of interprocess 


communication messages. 


In this implementation, the actual 


e angues usca Co perforin tne services indicated above and 
the nature of the queues are hidden from the processes; 
hense modification haS been Sinplified. 
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ENIRY POLNI IMPLEMENTATION 


Rem m sm um o J s. w W x sa — rs - элыш. CT A A em "og BN w 


/* ж ж ож ж ж о Жж ж Ж k KE KE ж ож ж ж ож Ж Ж ж Жж ж ож ж ож жож ж 
MOIS MEN TEY EOTNI TO KEEMEANDLEX IS UTILIZED BY THE MESSAGE 
ASYOGCATCR TO DERERMINE ТР А REQUEST/RELEASE MESSAGE 
BATCHES A QUEUSD-UP SE SH VEST MESSAGE: TADDRESSOR", 
"ADDRESS£E", "SEMAPHORE", AND Qx" MUST DE'SPECIFIED 
BZ TJE CALLING PROCEDURE. IF A MATCH IS NOT FOUND "MATCH! 
W Er TO FALSE. IF A BATCH IS FOUND “NATC PYTTIS SET TO 
TRUE AND "M PTR"! {MESSAGE RO M AND "ADDRESSEE? ARE 
SET TC THE VALUES STORED IN THE QUEUE < 


PRINITIVE RCB MATCH: ENTRY (ADDRESSOR,ADDRESSEE,SEMAPEORE, 
M.PTR,O#, MATCH, ERROR) ; 


DCL SEMAPHORE FIXED BINARY, 
N ETE POINTER; 
MATCH BIT(1); 


/*** DISENABLE ALL INTERRUPITS ***/ 
CALL PRIMITIVE INTERRUPT_DISENABLER(ALL_INT,SAVEINTS) ; 


MATCH = FALSE; 
IF (VALID(SEMAPHORE)) THEN DO; 
IF (C# =#LEFT) THEN START - RÍGHT QUE(SEMAPHORE); 
LSE START = LEFT QUE (SEMAPHORE) ; 
IF (START = NULL) THEN GC TO RETURN; 
TEMP = START: 
IF (ADDRESSEE = 0) THEN 
DO WHILE > { (tenes? TO T n DET = ADDRESSCR))); 
IF (IzdüP-»Q BOTTOH = STÀ THEN GO TO RETURNZ; 
FISE TEMP = TENP->Q_ BOTTOM: 
END; .. 
ELSE 
DO WHILE (~(( (2 TEMP->TO = ADDRESSOR) | (TENP-> TO = 0)) 
TEMP->FROM = ADDRESSEE))); 
IF (TEKP-3 Q BOTTOM = START) THEN GO TO RETURN2 


END: ELSE MTEP = ILP -7> Q BOTTOM: 
ADDRESSEE = Teper ren, 
1b4P=> Моб гт; 


T C 2 L 

CALL BENCVEQ (SE HAEHORE, (+Q#) „TENP,START); 
FREE TEME -> L R QUEUE: 

GO TO RETURN2; 


171 





ENTRY POINT SPECIFICATICN 


MODULE NAME:  RCB HANDLER 


PARAKETERS 
NPUT OUTPUT 


ENTRY NAME:  RCBPUTQ 


CONTENTS 


RINane 
Reg hel 


Addressor 


Addressee 


Pri 
MsgPtr 


Data 


Pie der 
Bit (1) 


integer 


Integer 


Integer 
Pointer 


integer 


Resource internal name. 


ueue identifier. Values are: 
LEFT or #RIGHT; #05 or #USER 
for the ready active queue: 
FREDYA. 


Internal name cf the process 
being inserted in the queue. 


Internal name of the process 
to which the message 1s ad- 
dressed; or the semaphore to 
be used in reply to a file 
cIeatıon task. 


Priority of the process keing 
queued. 


Qualifies the process's mes- 
sage buffer. 


a) Dummy file internal nane 
for outstanding rile crea- 
tion requests. | 

b) ##READ or ##WRITE for file 
Sen requests wnich were 
allocated (file left que) 

C) ##READ or ##WRITE for un- 
allocated open requests; 
##READA or ##WRITA for un- 
allocated, sacrificed file 
open reguests; ##R£ADS or 
E#WRITS for allocated, but 
sacrificed, file open re- 
quests; and ##WRITH Icr an 
outstanding file open for 
Wrlte access to non-ouwned, 
Shared file. 


CR eee ee ERU ч= -- ` a eg -s = — Se — = m nn m Í J aF p O ss m s s s s < == w. — = n s - s =< = 


This entry pcint is invoked to enter a process by priority 
into a specified queue and to save specific data. 
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TASA ATTE A x KE ROMAN di a * Ë+ & 
THIS ENTRY EOINT TO RCE HANDLER IS USED TO ENTER A 
PRCCESS (DD DB L PO PRIORITY ("PRI" IN A SPECIFIED 
QUEUE (" eh. kD JO Epi RESOURCE SPECIFIED BY "RINAME". 
"APDRESSOR' WADDRESSEE", "PRI", "HSGETR", AND "DATA" ARE 
STCRED IN THE APPROPRIATE QUEUE ELEMENT FIELDS. x / 
RCEPUTC: ENTRY (RINANE, REQ REL,ADDRESSOR,ACDRESSEE,ERI, 
MSGPTR,DATA7ERROR) ; 


DCL FRI FIXED SINAKY; 


/*** DISENAELE ALL INTERRUPTS **x*/ 
CALL ERIMITIVE INTERRUPT DISENABLER(ALL_INT,SAVEINTS) ; 
IF SEARE AER GUE THEN DO; 
ALLOCATE CUEUE SET (LRO PTR) ; 
IRQ ETB -» FRÓH — ADDAESSOLR; 
LRC FIR -$ TO = ADDRESSEE; 
LRO EFIR -> PRECEDENCE = PRI; 
LRQTÉTR -> FILE DAVA = DATA; 
LRC FIR -> MSG PTR = MSGPTR; 
CALL INSERT (RIWAME, REY_REL,LRQ_PTR,PRI) ; 
GO TO RETURN3; 
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ENTRY POINT SPECIFICATION 


MODULE NAME: CB HANDLER 


PARAMETERS 

iNPUI . OUIPUT — IYPE __ 
RIName integer 
Reg Rel Bit (1) 
Addressor Integer 


Addressee Integer 


MsgPtr Pointer 
Data Integer 
Found Bit (1) 


Q Empty Bit (1) 


Error Integer 


gr vi a щЬ SÜSS. шд жь  — apum — = muy A. A ENN s a a ag  — = = — m 


ENTRY NAME:  RCBGETQ 


A uu. Oe 


Resource internal nane. 


ueue identifier. Values are: ' 
LEFT, RIGHT, #0S, and #USER. 


Internal name of process to be 
removed from the queue. 


Data stored in the TO Field 
Of the queue. 


Process message buffer pcinter 


Data stored in the File Data 
Field of the queue. 


Indicates if the specified 
process was found. 


Queue Status after removal, 
Error condition coda. Values: 


aj 103 - invalid resource name 
b) 104 - unaliocated resource. 


— M M — HÀ — a — PM a" ——— —— — — — — — — e" O = mk 


This entry is invoked to remove a process and associated 
data £rcm the specified resource queue. The data is returned 
to the invoxer and the queue element is dealilocated. 
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ENIRY POINT IMPLEMENTATION 


ET Ga mm. Q s — emcee m Jm ee s eee ee 


/* * ж ож * ож ж ож ж ож Ж Ж ж ож ж о Жж Ж Ж ж ож Ж ж Жж ж ож ж ож ж ож 
THIS ENTRY POINT TO RCB HANDLER IS USED TO REMOVE A 
PROCZSS ("ADDRESSOR") PRONH THE SPECIFIED QUEUE ("REQ REL") 
ASSOCIATED WITH THE RESOURCE SPECIFIED BY "RINAME". THE 
DATA STORED IN THE FIELDS OF THE QUEUE ZLEMENT IS RETURNED 
IN "ASCPTR" AND "DATA" IF THE PROPEK QUEUE ELEHEAT IF 
FOUND. "FOUND" IS SET TO TRUE OR FALSE INDICATING THAT 
THAT THE ELEMENT HAS OR HAS NOT BEEN REMOVED. "Q EMPTY" 
INDICATES EE STATUS OF THE CUE AFTER THE ELEMENT HAS 
BEEN REMOVED. * / 
RCHGETC: ENTRY (RINANE, REQ_ REL ADDRESSOR, ADDRESSEE, MSGPTR, 
DATA, FOUND7Q, EMPTY, ERROR) ; 


“DCL di di oce 


"x DISENADLE ALL INTERRUPTS ***/ 
CALL PRIMITIVE INTLHHUPT DISENABLER(ALL INT,SAVEINTS); 


UND, EMPTY = FALSE; 


FC 
IF VALID (EINAME) ) THEN DO; 
IF (BEQ Bel =#LEFT) THEN START - LEFT QUE(RINAME); 
ELSE START = RIGHT OČE (RINAHE) ; 
IF (START = NULL) THEN GO TO RETURNU; 
TEHE = START -» Q BOTTON; 
DO WHILE ((TEMP == START) & (TEMP = > FROM == ADDEESSOR)) ; 
L TEMP = TEMP -> Q BOTTON; 
ND; 
IF (TENP -> FROM -= OA THEN GO TO RETURN4; 
ADDRESSEE = TEMP -> TO; 
MSGPIR = TEMP => MSG PTR; 
DATA = TIMP FILE DATA: 
CALL REMOVEO RIWANÈZ RÈD REL, TEHP,START); 
IF (START = NULL) THEN D_ENPTY = TRUE; 
FREE TENE -> L_R_CUEUE; 
FOUND = ‘RUE; 
END; 
GO TO RETURNU; 
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ENTRY POINT SPECIFICATION 


MODULE NAME: RCB_HANDLER 


PARAMETERS 

-iNPUT OUIPUI .  TYPb ___ 
RINane f Integer 
Oé Bit (1) 
PiName Integer 


Langa. Bartel A) 
Stat | 


New Bit (1 
б e 
Xfered Bit(1) 
Error Integer 


ENTRY POINT DESCRIPTION 


ENTRY NAHE:  RCB IRANSFERQ 


EE wem vm SED gee et qe SO ee a ee ee 


Resource internal name. 


ueue identifier. Values are: 
¿LEFT or *BIGHT 


Process internal name which is 
being transierred 


Status ofCf aiter transfer. 
Status of opposite queue be- 
fore transfer. 

Status of transfer. 

SE condition code. Values: 
a 


- invalid resource nane 
b) 104 - unallocated rescurce. 


— == m= = чш = RE — — ek or o a e ae SU z z t Q Sc et oe A c oe ee ee ee ee ee 


This entry pcint ls invoked to transfer a process Erom one 
queve of an ECB to the DO E queue of that RCB and to 


retura tne Status of bot 
respectively. 


queues after and before transrer, 
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SS m= m ee — Mr 3 DD 1 D L 


/* жож Жж ож ож ож ож ож ж ож жож ж ож ж ож ж ож ж оЖ ж о® ж ож ж ож ж ож 
THIS ENTRY POINT TO KCB HANDLER IS USED TO TRANSFER A 
PROC£SS WETNAM") FROM ONE CUE f: N OF AN RCB 
DA ei pak IOS PHI SOTHEE CUEUE. "XEERED!" TNEICATES T 
HE OPERATION HAS/HAS NOT BEEN PERFORMED. "INQ_FIN_ STAT" 
TODICATFS TBE STATUS Of "O8" AFTER THE TRANSFER. 
UNEWO SWAF FNSTAP A TPS THE STATUS OF THE QUEUE 
OPPOSITE "C#" BEFCRE THE TRANSFER. S d 
RCB TRANSFERC: ENTEY(RINAME,Q#,PINAME,INQ FIN _STAT, 


NEWQ START STAT, XFERED, ERROR) ; 


DCL EINANE FIXED BINARY: 
DCL (INQ FIN STAT,NEWQ START STAT, XFERED,NEWQ) BIT (1); 
-DCL (S£ARTI1,START2) POINTER: ~ 


*** DISENABLE ALL INTERRUPTS ***/ | 
CALL ERIYITIVE INTERRUPT DISENABLER(ALL, INT,SAVEINTS); 
XSEREL = FALSE; j 
IP (VALID (RINAME)) TEEN DO; 
IF (C# = #LEFT) THEN DO; 
START1,TEHP 5 LEFT OUE (RINAME) ; 
-STAREZ' Z KIGHT OUETRINAME) ; 
ELSE DO; 
START1,TEMP = RIGHT QUE(RINAME); 
„„START2 = LEFT_OUE(RINANE) | 
ND; 
I? (START2 = NULL) THEN NEWO STARI STAT = ##CLOSE; 
3LSE NEWQ START STAT = ##0PEN; 
CALL LOOKUPTTEMP, DINAME, IPOS) ; 
IF (IEOS = 0) THEN GO TO RETURNS; 
CALL REWOVEQ(RINAMZ,O#/TERP, START) 5 _ 
I? (STARI1 2 NULL) THEN INQ FIN STAT - $4CLOSE; 
ILSE INC PIN STAT - ##OPEN 
NEWQ = 70%: 
DRI = TEMP +> PRECEDENCE; 
CALL INSERT (RINAME,NEWQ, TEMP, PRI) ; 
XFERED = TRUE; 
EHD; 
GO IC RETURNS 
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MODULS NAMES 


Bele ns 
I 


ENTRY POTNT SPECIFICATION 


KCB FIND 


ENTRY NAME: 


CONTENTS 


San vm. vm S a al t T em vg a af [I O AO GU CD AS ES O SO ss SC Er EE wë wg. mv ffr ffr die AA O AO Gs a Ñ a S r «A 


RCD 
Q# 


Findop 


Posit 


PINan 


Datparm 


This entry pcint provides such services as searching, 
1 prccess and returning position and data, Sampling a 

speciried positicn in a queue, and modifying da 

eleient. 


for a 


RCB BANDLER 
OUTPUT TYPE 
Integer 
Bit (1) 
Integer 
Fosit Integer 
PiNam Integer 
Datparm Integer 
Pri integer 
Error Integer 


OINI LESCRIPTION _ 


Resource internal name. 


ueue identifier. Values ale: 
LEFT or #RIGHT. 


Oasen identifier. Values: 
#FNDOP1, #FNDOP2, #FNDOP3, 
#FNDOP4Y, and #FNDOP5. 


Position in queue to te sam- 
pled or in which the process 
was found. 


Internal name of process to 

be found or which was found at 
the specified position. 

Data found or to be entered. 


Priority of the process in the 
queue. 


Error condition code. Values: 
a) 103 - invalia resource name 
b) 104 - unallocated resource 
c) 108 = invalid operatici. 


remm "mm Ee E E e eege ENDO gp tm No =e ei un celimi eee OO oci 7 1m chinzpun-amü 3m AA Aa a ee a =i mnes 


a queue 


ta in a queue 


178 





re ARAS E — aes a q um Á = = m= 


/* * Ж о % < KK KK KR k KK KK RK KK KR KK KR KR x Хх ж ож ж 
THIS ENTRY POINT TO RCB HANDLER USED TO DETERMINE THE 
QUEUE eee PESITION ("POSIT') A PROCESS ("PINAM' 

AND ENTER Cr GET A COPY OF DATA. OTHE APINAN "POSTI" OR 


BONN NA YA LES SPECTETED FO SELECT A SPBCIEIC PROCESS, ANY 
PROCESS ALT POSITION ("POSIT") OR A SPECIFIC PROCESS AT 
A SPECIFIED POSITION. we 


ECB. FINE: E DATPARN PRI, 
E ° 


DCL (RCB,FINDOP,POSIT,PINAM,DATPARM,IPOS) FIXED BINARY; 


xxx DISENABLE ALL INTERRUPTS **x*x*y 
CALL FRILITIVE INTERRUPT DISENABLEHR(ALL INT, SAVEINIS); 


IF VALIZ (RCB) ) THEN DO; 
TF ((FINDOR < 1) | (FINDOP > 5)) THEN DO; 
ERROR = 108; 
GC TO RETURN6; 


- LEFT QUE(RCB); 
IGHT 


со 


IPOS = ECSIT; 
DO ACTION OF CASE(FINDOP); 


CASE(1): /* FIND THE PROCESS SPECIFIED BY PINAN AND 
RETURN THE POSITION AND FILE DATA ES 
o DBOCKUP (OTA, CINAN, LPOS) ; 
Eee E THEN DATPARÍ, РАТ = 0; 


SE DO; PARM = START -> FILE DATA; 
PRI = START -> PRECEDENTE; END; 
FOSIT = IPOS; 
ENICASE; 
CASE(2): /* FIND THE PROCESS SPECIFIED BY PINAM AND 
. ENTER THE DATA IN DATPARM, RETURN THE 
POSITION IN THE QUEUE x/ 


CALL LOOKUP (START, PINAN, IPOS); 
Pe (CEOs O DE NO SAA REN So FILE DATA = DATPARN; 
FOSIT = IPOS; 

ENTCASE; 
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CASE(3): /* FIND THE SPECIFIED PROC AT THE SPE ECIFIED 
POSITION AND RETURN FILE DATA yi 
CALI QUEFOSIT(IPOS, START); 
IF ((iPOS < 0) | (PINAH == START -> uus DO: 
` LATPAKM, PRI = 0; 
ERROR = 108; 
END: 
ELSE DO; DATPARM = START -> FILE DATA; 
PRI = START -> PRECEDENTE; END; 
ENDCASE; 
CASE(4): /* FIND THE SPECIFIED PROCESS AT THE 
SPECIFIED POSITION AND ENTER THE DATA 


IN DATPARM */ 
CALL QUEPOSIT(IPCS, START); 
IF { (ROS | AM (PÍNAM -<' START -> FROM)) THEN 


LSE 
START -» FILE DATA - DATPARE; 
ENLCASE; 


CASE(5): /* FIND AND RETURN THE PROCESS NAME AND DATA. 
AT THE SPECIFIED POSITION xe 
CALI QUEPOSI1(IPOS/START); 
IF (IPOS = 0) THEN PINAM,DATPARM,PRI = 0; 
ELSE DO; 
PIKAN = STAG5T -> FROM; 
DATPAKM = START -> FILE DATA; 
FRI = START -> PRECEDENTE; 
FND; 
ENLCASE; 
D CE. CAŠES; 
TC REZURNG; 


N 
EN 
EN 
GO 
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ENTRY POING SPECIFICATION 





MODULE NAME:  RCB HANDLER 

PARAMETERS 

aeur ___ОйТрит____туүрк____ 

Туре Integer 

RXName Char (8) 
RIName integer 
Error Integer 


_CONIENYS__ 


ENTRY NAMES FIND INANE 


—— ee ale eee x ee eee ee ee ee ee Qm 


e identifier. 
#DEVICE, #FILE 


Resource t 
Values; #P 
and DM gu 


Resource external name. 
Resource internal nante. 


Error conditicn code. Values: 
$) 101 invalid resource type 


TIT unidentified resource 
external name. 


ИШ От ТОГО O 2 
This entry pcint finds and returns a resource internal name 
when суза ded a valid external name for a resource for which 
an RCB has been created. 
ENTRY POINI IMPLEMENTATION 
/* * * *% ж HF ж ож ж ж DRIN NN KR ER E a x 
THIS ENTRY POINE TO SÈB HANDLER RETURNS THE INTERNAL NAME 
OF A hpESGOURCE (UM RLNAD EH dHEN GIVEN THE EXTERNAL МАМЕ, 
a L AND THE RESOURCE CLASS (“TYP=") PROVIDED A 
ESOURCE BY THAT NANE HAD BEEN CREATED. */ 
FIND_INAME: ENTRY (TYPE,RXNAME, RINANE, ERROR) ; 
DCL (EASE,TOP) FIXED BINARY; 
/*** DISENABLE ALL INTERRUPTS ***/ 
CALL PRIMITIVE, INTERRUPT DISENABLER(ALL_INT,SAVEINTS) ; 
IF (TYPE < #SEMFOR) THEN DO; BASE = SEM_ 1 LIMIT; 
S TOP <- SEWH LIMIT; 
ND , 
ELSE IF (ТҮРЕ aarti Le) THEN DO; BASE = FILE L LIMIT: 
ne JO WEE 
ELSE EF (TYPE = 4LEVICE) THEN DO; 
BASE = DEV L LIKIT; 
TOP = DEV_U_ITINIT; 
END; 
BISE IF (TYPE = #PET) THEN LO; 
BA ESS PCI L LIKIT; 
TOP < PCI U LIMIT; 
END; 
ELSE DO; ERROR = 101; 
GO TO RETURNT; | 
DO I - PASE TO TOP HHILZ (RXNAME == EXT NAME (LS) : END; 
MEME P) THEN ERROR = 111; 
BESE RINANE = I; 
GO TOFRETURNT: 
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ENTRY POINT SPECIFICATION 





MODULE NAME: RCB HANDLER ENTRY NAMES DESTROY RCB 
PARAMETERS 
КЫТ — OUTPUT TYPE CONTENTS  _, 0 0. 
RINane Integer Resource internal nane. 
Addressor Integer Internal name of the process 
destroying the resource. 
ProVec Integer List of processes found cn the 
Vectcr queues of the resource beling 
aestroyed. 
Error Integer Error conditicn code. Values: 
a) 7117 = process not autho- 
rized to destroy the re- 
— source. . 
p) 102 - invalid resource name 
c) 104 - unaliocated rescurce. 


<t 


ENTEY POINT DESCRIPTION 


UEM cc EA EE a = 
Bur entry pcint is invoked to destroy a specified rescurce 
provided the addressor is the owner or the creator of the 
resource. Any process on the resource queue is returned to 
the invoker for proper disposition. 
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ENTRY POINT IMPLEMENTATION 


a ee ow og ee s Cam ee meee E EE Qs 


/** * ж +*% ж* % ж KO < Жж ж Жж KR OR KR KR OK RR OK OK * * * k 
THIS ENTRY POINT IS RCB HANDLER IS USEL TO DESTRCY 
BESPRCIFPEDESGCONOUUDPHAMPU)I TIB PROCESS REQUESTING 
DESUREHCIIONC('UADBAERSSOR")SOMUST BE THE CREATOR OF THE 
ЕСТ ОКЕ ЛНЫН ЕхлОК РОК ТНАТ PROCESS IS RAISED. ALL 
PROCESS INTERNAL NASES QUSUED ON THIS ACE ARE 
JDENTIETSED BY SESWENG A BIT FISED EN EROVEC TO TRUE 
THIS VECIOR ISTUITLIZED BY TJE INVOKING PROCESS TO 
RELEASE MESSAGES TO THE SUPERVISOR CCNCERNING TEHE 
NON= EXTISTANGCE OF THIS RESOURCE CAND THE PROCESSES 


USING IT. x / 
DESTROY_RCB: ENTRY (RINAME,ADDRESSOR,PROVEC, ERROR) ; 


DCL ONR BIT (N 
BC L BROVECH 


/*** DISENABLE ALL INTERRUPTS ***/ 
CALL PRIMITIVE INTERRUPT DISENABLER(ALL_INT,SAVEINTIS) ; 
IF Y E 1 THEN DO; 
IF ((ADDRESSOR == inkl 
ADDRESSOR -- OWNER(RINANME))) THEN DO; 
ERROR = 117; 
GO TO RETURNS; 
END; 
UE (RINAME) ~=NULL) ) 


IF ((LEFT QUE(RINAME)--NULL) | (RIGHT OQ 
THEN- DO; 


$ 
PROVEC (0) = TRUE; 
QNR = #LeFt; 
START = LEFT QUE (RINAME) ; 
DOJ ~= V TO 72; 
DO WHILE (START -= NULL); 
TEMP = START -> Q TOF; 
te ren PS? Fao aS nec R THEN 
PROVEC (TEAP -> FROM) = TRUE: 
CALL REMOVBO(RINAHE,ONR,TEHP,START) ; 


ap EREE TEMP -> 1_R_QUEUE; 
START < RIGHT OUEYRINAME); 
unije = RIGHT; 


END; 
IGNED (RINAUE) = FALSE; 
TO BETURN8; 


ASS 
END 
GO 
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ENTRY POINT SPECIFICATION 





MODULE NAME: RCB_HANDLER ENTRY NAME: RCSB CHARDAT 
PARAMETERS 

INPUI_____QUIPUT____TYPE______CONTENIS______ A Luce. d 
RINane Integer Resource internal name. 
PutGet Bit(1) Operation identifier. Vaiues: 


#PUT or #GET to enter or get 
a copy of data, respectively. 


Field Integer RCB field identifier. Values: 
3 #PCTNAM - PCT external naue 


b) $*XNAME - external name. 
Cdata Cdata Char (8) Transfer of character data. 
Error integer Error conditicn code. Values: 
a) 103 - invalid resource nane 
b) 104 - unallocated resource. 


ENTEY POINT DESCRIPTION 2.0 
Invoked to access character type data. Implemented as a 
generic entry point to Primitive RCBData. 





ENTRY POINT IMPLEMENTATION 


em vm A A AAA A A mam mamas sam s = . eee ee ee ee ee 


/* * AM AME % ж ож Ж ож ож ж ж ож ж Ж о Жж ж ож ж ож ж Ж ж ож Ж ж ож ж 

RTS ENTRI POINT TO RCE HANDLR IS USED TO ACCESS 

CI Pp ACEP ҮРЕ DATA: YRINAME" SPECITICES THE ECB HUMEBR: 

"EGTGET" SPECIFIES THE OPERATION TO Be PERFORAED #PUT OR 
Ser ETE EDI SEHCTETES THE RCD FIELD (DEFINED BY. THE 
#VARLAELES): DUD YCDATAT CONTAINS THE DATA TO BE ENTERED 

OLS TS SET AUTO BE RETURNED. * 


DCL FIEID FIXED BINARY; 
LCL PUTGET BIT(1); 


RCB CHARLAT: ENTRY(RINAME,PUTGET,FIELD,CDATA,ERROR) ; 
LCL CDATA CHAR (8) ; 


/*** DISENABLE ALL INTERRUPTS *x*x 
CALL ERINITIVE_INTLARRUPT_DISENABLER (ALL_INT,SAVEINZS) ; 
IF (VALIE (RENAME) ) THEN DO; 
DO ACTION. CA S ECLELD); 
TASE(1)7 IF (PUTGET-$4P d THEN EXT NAME (RINAME) =CDATA 
ELSE CDATA = EXT_NAME(RINAME) ; 
ENDCASE; lé 
CASE (2): IF (PUTGET=#PUT) THEN PCT NAME(RINAME)=CDATA; 
ELSE CDATA = PCT NAME(RINAME) ; 
ENLCASE; 
END CF CASES; 
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ENTRA ROLNT SPECBRECATION 


MODULE NAME: RCB_HANDLER ENTRY NAME:  RCB FIXBLAT 
PARAMETERS 

INEUT OUTPUT ___IYPE —.. CONTENIS A rmm am 
RIName Integer Resource internal name. 
PutGet Bit(1) Operation identifier. Values: 


"PUT or #GET to enter or get 
"a copy of data, respectively. 





Field Integer RCB field identifier. Values: 
i a) #CRATR - resource Creator 
b) #OUNER - resource Owner 
C) #DINAME - Device internal 
name 
d) €CNT SZ - Counter or file 
length : 
e) #OFILE - Oren_File data 
f) #S OR P - Shared Private 
g) S$TFILÉ - File Type data. 
Fdata Fdata Integer Transfer or integer type data. 
Error Integer Error conditicn code. Values: 
3 103 - invalid resource name 


104 - unallocated rescurce. 


MA I POIN DESSRIBIJON usak su mir ee DRAK T 
Invoked tc access integer. E data. Implemented as a 
generic entry point to Primitive KCEpData. 








/* SS A zz KR KH ж ж ж ж ж ж Жж kkk k k k kkk Fk kkk 
THIS ENTRY POINT TO RCB HANDLER IS USED 10 ACCESS FIXED 
BINARY TYPE DATA. "RINAME" SPECIFICES THE RCB NUMBER; 
NPUTGET" SEECIFIES THE OPERATION TO BE PERFORMED (#PUT OR 
#GET) 1 "FIELD" SPECIFIES THE RCB PIELD (DEFINED BY THE 
4VARIAELES); AND "PDATA" CONTAINS THE DATA TO BE ENTERED | 
OR IS SET 10 THE VALUE TO BE RETURNED 


RCB_FIXEDAT: ENTRY (RINAME,PUTGET, FIELD, FDATA, ERROR); 
DCL FDATA FIXED BINARY; 


/*** DISENABLE ALL INTERRUPTS Ж: 
CALL PRIKITIVE INTERRUPT DISENABLER(ALL INT,SAVEINIS); 
IF (noi OP ER THEN DO; 
DO ACTION OF  CASE(FIELD); 
TASE(1)T (PUT ET = #EUT) THEN CREATOR (RINAME)=FDATA; 
ELSE FOATA = CREA OR (RINAME) ; 
ENLCASE; 
CASE(2): ^ (PUTGET=#PUT) THEN ONNER(RINAME) = FLATA; 
ELSE FDATA = OWNNER(RINAME); 
ENLCASE; 
. CASE(3): IF (PUTGET = #PUT) THEN 
DEVICE INANE (RINAME) = FDATA; 
ELSE FDATA = DEVICE INANE(RINAME) ; 
ENDCASE; 
CASE(4): IF (PUTGET = #PUT) THEN 
CNTR SIZE (SINANE) = FDATA; 
ELSE FDATA - CNTR_SIZE(RINAME); 
ENICASE; 
CASE(5): IF (PUTGET = #PUT) THEN 
OPEN FILE (RINAME) = FDATA; 
ELSE FDATA = OPEN FILE (RINAME) ; 


ENLCASE; 
CASE (6): IF (PUTGET = PUT) THEN 
SHARED PRIVATE(RINANE) = FDATA; 
ELSE FDATA < SHARED PRIVATE(RINAME); 


ENICASE; 
CASE): ir (PUIGET = # PUT) THEN 
FILE TYPE (RINAME) = FDATA: 
ELSE FDATA - FILE TYPE(RI NAME); 
ENECASE; 
END OF CASES; 
END: 
GO TO RETURN10; 
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MODULE NAME; 


PARAMETEES 

INPUT_____OUTPUT 

RINane 

PutGet 

Field 

Bdata Bdata 
ELIOL 


ENISI POINI SPECIFICATION 


RCB_HANDLER 


— — — wm ee ce ee A мс. 


— TYPE ___ 


Integer 
Bit (1) 


integer 


Bit (1) 


Integer 


ENTRY POINT DESCRIPTION 


—— De cape <Á Xaa s t in u <s = e ta Er Te ee ee ee eg oe ci umi ee eee em 


ENTRY NAME: 


-CONTENTS 


RCB BITDATA 


GOLES ccn Y ee AA A A A —  — 


Resource internal nane. 


Operation 


identifier. Values: 


#PUT or #GET to enter or get 


a copy of 


RCB fieid 
a) #DSTAT 
b) #L OUL 

#R QUE 
d) #ASGND 


Transfer of 


Error condition code. 


data, respectively. 


identifier. Values: 
2 Device Status data 
Left, Que status 
Right Que status 
àsSigned data. 


bits data. 


Values: 


a) 103 < invalid resource name 


b 
E 


d) 


104 - unallocated resource. 
107 - invalid put operation 
attempted in queue 
119 
att 


eader 


- invalid put operation 


enpted in assigned Iield 


Invoked fcr transfer of bit type data. Inplerented as a 
generic entry point to Primitive nCÓData. 
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nn MÀ lji fe x m Q ee OMM. ES ee сш “masa im mmm amu. s sma Qm a Qs 


ж ж eK ж ж * X ж ж ж ж ж ж ж ж ж ж 


ж ж ж ж 
KY POINT TO RGB HANDLER 1S USED TO ACCES B 
A. Phi ADU ЭЖ СМИ Е5 ТНЕ КСВ NUMERR; "PUTG 
S THE OZERATION [TO EE PERFORMED (#PUT OR #G 
КУРЕСУГЕ THE KCB FIELD (DEFINED BY THE „VA 
ANT "BDATA" CONTAINS THE DATA TO BE ENTERED 

SEF ' 10 IHE VALUE TO BE RETURNED f * 


RCB_BITDATA: ENTRY (RINANE, PUTG ET, FIELD, BDATA, ERROR) ; 
DCL ECATA BIT (1) ; 


WEINEN * 
un rH 
— 


| /***® DISENABLE ALL INTERRUDTS *x**/ 
CALL PRIMITIVE INTERRUPT_DISENABLER(ALL_INT,SAVEINIS); 
IF (VALID (RINAEE)) TAEN DO, 
DC ACIICN O о Chet. (2 LED): 
CAS5F(1) (PUTGET = zu IHEN P 
DEVICE STATUS (RINANE) = PIATA; 
e ELSE BDATA = DEVICE_STATUS (RINAUR), 
NLC in 
CASE(2): IF (PUTGET = #PUZ) THEN ERROR = 1 5 
ELSE IE E = et, THEN 
DATA = TRUE; 
ELSE BDATA = FALSE; 
ENLCASE; 
CASE(3) : If (PUTGET = #PUT) THEN ERROR = 107; 
ELS& IF (RIGHT CUE (RINAM“ n = Den THEN 
BDATA = TRUE; 
ELSE BDATA = FALSE; 
ENDCASE; 
CASE TA): IF (EU OPI: N THEN ERROR = 119; 
ELSE BDATA < ASSIGNED(RINAME); 
ENTECASES | 
ENDAC CASES 
END; 
GO TC RETURN11 
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LOCAL PROCEDURES 


MEER Ge ee We eo m= ызы s wa m s O sa ee 


r 


koko co ж ж ж ж ж ж ж Жж ж ж ж ж ж ж ж ж ж ж zk ж ж ж ж k k OK 
THE FOLLCWING LOCAL PROCEDURES ARE USD TO PERFORM 
FUNCTIONS RHICH ARE COMMON TO SEVERAL ENTRY POINTS * 


e E Ee Ee A FE k ж ж ж ож 


VALIL CHECKS THAT "KCBNR" IS WITHIN RANGE AND THAT THE 
RCE In CURRENTLY ACTIVE. * 


VALID: FEOC(RCBNR) RETURNS (BIT (1)) ; 
DCL ACBRÁ FIXED BINARY; 


IF ((RCENB < i) j | 
АСЕКЕ > SEM LIMIT) & (RCBNR < DEV `L LIMIT) } I 
ECBNR > DEV_U_LIM n 6 (RCBNK « FILE L LIMIT)) | 
(KCBNR » FILE U LIAIT) & (RCSNR < ECI L LIMIT)) | 
HCBNE > PCT U LIMIT) ) THEN DO: 
ERROR = 1035” RETURN (FALSE); END; 
IF (22SSIGHED (ECENR} ) THEN DO; 
RROR = 104; BETURN(FALSE); END; 
RETUEN (TRUE); 
END VALID; 
JR RR ER KK KR KR ж ж ж ж Ж“ ж Жж Ж ж ж ж ж ж kok ko kok 
RFMOVEQ REMOVES THE QUEUE ELEMENT uM FROM THE CUEUE 
("QNUEU) ASSOCIATED WITE THE RCB NUMBER ("RCB!). "TOFELMT" 
SEÉCIFIES THE TOP ELEMENT IN THE QUEUE. > 


a è am ". gn ou rm 


Riv Oe S SOC RCD ND ELE T TOPELMR ?) ; 
DCL CHRUN Pit (1), 
(ELUHI,TOFELHT,TEHMP,TEMPT1) POINTER, 
kCB FIXED BINARY; 
ТЕМР = ЕГЕТ; 
TEMP1 = TOPELMT; 
TE СО en a CELTI © {TEMP => O0 TOP = TOPELNT)) 
Zr REJOVE THE ONLY ELEMENT IN THE el E Ha 
F Mond CLIP PHEN LEET OUS(RCE) ,TOPELNE = NULL; 
ERSEIKICHT CUE(RCB), TOPELHT = NULL; 
RETURNS 
END: 
PESE LOs: 
1F (ТЕЙР1 = TENP) THEN 
IE RENOVE THE TOP ELEMENT IN THE QUEUR */ 
r (QNUM . a), THEN 
TESIT OUE (RCE) = TEMP => Q_EOTTOM, 
N a LDTGHTICOQUEGHCD]) = LEMP => G EOTTOH : 
SPE ENERO USUE LINKAGE TO REMOVE THE ELEMENT */ 
TEMP1 = TEMP -> о BOTTOM; 
IP] —EDETOP = TEP -> 0 TOP; 
TEMPÍI = TEHP => 0 ED 
IN X BOTTON = TEMP -> O BOTTOM; 
Br Dun: 
END kEHNOVZOS 


189 





SA 


("ERI"). 


IN TAE RCB 
EDRTORTIY 


("РТК") 
OR R") BY 


("UL 


kel 
ED 
< 


SPECIFI 


* ж ж ж ж ж ж ж ж ж k k X kkk k kk kkk k k ж ж ж 
E 


«RT ENTERS THE QUEUE ELEMENT 
NAME") QUEU 


ж ж 
NOE 
WET 


/ 
I 
( 


TO FIND; 


THEN GO 
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& (TEMP->PRECEDENCE>=FRI)) 
O BOTTOM; 


-> Q BOTTOM; 
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QUEPOSIT: PROC(IPOS,START 
DCL (IPOS, £1) FIXED BINA 
(START EME) POINTER; 
EE -» Q BOTTOM; 


1; 

HILE т< s & (T 
ME MP -» Q bOTTÓM 
: 


= gem THEN /* DO 
/% NOT DONE %/.IPOS 


/*** ENABLE T 
CALL FRIKITIVE INTERR 


END FRIMITIVE_RCB_HANDLER; 


EME == START)); 
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NE 04 START TERP => 0O ICP: 


7,SAVEINTS) ; 





SODULE SPECIFICATION 


NAME: 


— —— < s m xm m en A amma ` em 


PARAMETEES 
NPUT OUTPUT TYPE O 


interrupt 


Save int Integer 


Array 


V PENAL CALLS MADE TO OTHER 


AT 
Adi PARAMETZRS 


— — e — = eS ammo ORE ee “s “mms m m q ee a XU 


= 


on 


(W 


ENAL CALIS MADE EY OTHER 


TE 
HE PURPOSE 


EX 
NA 


— die den m —  —- — =s — ee Melle mel un n e Va A a A eus 


TYPE: 


CONTENTS 


Su u ade ci ee SEE EEE: mie > er Ge m ee — — — ec in ee 


If not zero, it identifies the 
interrupt to be enabled. 


If interrupt is zero, it iden- 
tifies all interrupts to be 
enabled. - 


NODULES 


en r ee ee ee ——— — E ee ge ee ee ee “Jb 


Invoked by ail primitives and the Interrupt Handler upcn 


completing execution. 


ee ai  . 10755... 
Intrupt Bit(1) 
Àrray 


MODULE DESCRIFTION 


ee eg See ee ee s s wë 


A m= Se m ee ee == 


PURPOSE/VALUES 


tetas cci, qe — we ee ber eee ee ee CENE ee ee eee ee ee ee ee ee ee ee wm 


External structure containing 
the current status of the sys- 
tenezinterrupts. A]. Indi- 
Catescrhneosnterrupt 35S enabled 
and a '0' indicates that it is 
disabled. 


— "Emm ee rr rw yee ee ee < eg ee ee ee emt kee 


This primitive was designed to enable all the interrupts set 


in tte array save vector if 


the 
zero otheryise only tne specifie 


arameter interrupt Sue a 
interrupt is enabled. 
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ALNCLUDE NAWCHGR; /**x**x INTERRUPT ENAELER >*>* > *s* 
72 THIS PEIMITIVE NASMDESIGNED TO ENABLE ALL THE 
INIERRUPTS SET TO TRUE IN THE ARRAY SAVINT IF 
INTERRUPT# IS ZERO (0), OR TO ENABLE THE SPECIFIC 


INTERRUPT SPECIFIED BY INTERRUPT#H 
PRIMITIVE INTERRUPT ENABLER: PROC (GNTERRUPT#,SAVEINT) ; 
ALNCLUDE INTACTV; 


DCL INTERRUPT# FIXED BINAAY (15) 
SAVEINT (16) BIT(1); x DIMENSIONED NUHBINT %/ 


1F (INTERRUPT% = 0) THEN /* RENABLE FROM SAVEINT »/ 
INTRUPT = SAVEINT; 
/* INTRUET CONTAINS THE CURRENT STATUS OF THE SYSTEM 
INTERRUPTS. A 1 INDICATES THE INTERRUPT IS ENABLEL; 
A O INDICATES THE INTERRUPT IS DISENABLED */ 
ELSE INTRUPT(INTERRUP PIS). - 1118; 
/* E GLE INTERRUPT */ 


INT 
NABIE A SIN 
RETURN 


Ha 


EN; 
MITIVE INTERRUPT ENABLER; 





MODULE SPECIFICATION 


NAME: INTERRUPT DISARLER TYPE: PRIMITIVE 
PARAMETERS 
ZNBUL_____ OULIPUI____ IIBE______CONIENIS________________ 
Interrupt Integer If not zero, it identifies the 
interrupt to be disabled. 
Save int Integer If inter supe is Zero. it is 
Array used to save the status or all 


interrupts being disabled. 


EXTERNAL CALLS MADE BY OTHER MODULES 
Eua ee PURPOSE  — 
Invoked cy all primitives and the Interrupt Handler to 
prevent interrupts during execution. 


En bz, eee i eg. A e en m AI AO ANN e — S ee ee as 


DATA STRUCTURES USED 
NA _FIELD 


ine... pU EM UR E 
Intrupt Bit (1) External structure containing 
Array the current status of the sys- 


tem interrupts. A 11! 3mdr-: 
cates the interrupt is enabled 
апа а *0* indicates that it is 
disabled. 


Ee 
This primitive was designed to disable all the interrurts 
Currently enabled and ro return the current interrupt status 
in the save vector if tne interrupt parameter egualS zero 
otherwise only the interrupt specified is disabled. 





MODULE IMPLENENTATION 


ds GNE = id 


ZINCLUDE KAHCHGR; J***** INTERRUPT DISENABLER zéi 
/* THIS PRIMITIVE WAS DESIGNED TO DISENAbLE ALL THE 
INTERRUPTS CURRENTLY SET AND TO SAVE THE CURRENT 

INTERRUPT STATUS IN THE ARRAY SAVEINT, IF INTERRUPT? 
EQUALS ZERO (C) OTHERWISE DISENABLE THE SPECIFIC 


INTERRUPT INDICATED BY INTERRUPT# */ 
PRIMITIVE_INIERRUPT_DISENABLER: PROC (INTERRUPT#,SAVEINT); 
AINCLUDE INTACTV; | 


DCL INTERREUPT# FIXED BINAKY(15), 
SAVETNI"4(16) BIT(T1); 
IF (@NDeteRUP Tet = D THEN y/* DISENABLE ALL INTERRUPIS 
AND SAVE THE CURRENT CONFIGURATION IN SAVEINT Se 
DO: 

AINI RUFT CONTAINS IHE CURRENT STATUS OF THE SYSTEM 
Penn Ue een Choe thn ENT ERRUPI IS ENABLEI; 
A O INDICATES AN INTERRUPT IS DISENABLED * / 

SAVEINT - INTRUPT; 
INIRUET = '0'B; 
END; | 
Ebor /* DISEMAELE A SINGLE INTERRUPT */ 
INTRUET (INTERRUPT#) = (O'B; 
END PRINITIVE INTERRUPT DISENABLER; 





MODULE SPECIFICATION 


NAME:  SAVESTATE TYPE: PRIMITIVE 
PARAMETERS 
INPUT , | OUIPUT £YPE .— .CONIENIS ».  . 0 ll ——--- 
P-Inane Integer Process internal nane. 
Processor Integer CPU on which the process being 
saved was executing. 
Error Integer Returns error condition code. 
EXTERNAL CALLS MADE TO OTHER MODULES 
Po eee EAU TL SE POR No ee 
Interrupt Interrupt Number, This module is invoked to dis- 
Disabler Save Vector able all interrupts while 
| Savestate 1272 pn execution: 
Intezrupt Interrupt Number, Ihis moduie is invoked tc re- 
enabler Save Vector enable all interrupts which 
were dısabled by the current 
module in execution. 
PCBDATA Process I-Name, This module is invoked tc save 
Put/Get Parameter, the contents of the CPU regis- 
Field identifier, ters on wviLlch Process I=Nane 
Data Parameter, was in execution. 


Error Paraneter 


EXTERNAL CALLS MADE BY OTHER MODULES 





Baum ox s __ AEG Emmen een. tem 

Scheduler Save the state of a process which is 
being preenpted. 

Request Save the state of a process whose re- 

i | blocked on a request for a message or 
resource. | 

Interrupt Handler Save the state of the current process in 


execution on the Operating System rro- 
cessor until the current interrupt is 
handled. 
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DATA STRUCTURES USED 

NAME ` ` EFSER ` CES Ooo 

Saveint Bit (1) 
Array 

CPUREGS Integer 
Hatrix 


Item(i,j) Integer 


Current- Integer 
Process Array 


— e cs — vèn «ii s s O: UT eee ee — ee ee Oe eee O. en 


a Du aman m ¿s all шшш — w чш» m ve — mm en mn "ëm, mmm, mme mn — . w E 


al used to save the status 
of the interrupts; arguement 
in call to Disabler and 
Enabler. 


External structure represent- 
ing the CPU registers for each 
processor. ' 


Represents register 'j* cn 
processor f“i', 


External vector used to iden- 
tify the process executing on 
processor 'i* (Array index). 


ERG ca VS sews eee ma eee m ee oe ee O A ee Í N eee w Ñ w ee 


This primitive was designed to save the current state cf the 
processor in the save-area (PCB Field) for the specified 


process. 
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— —Y—-  — ee ZELLULNIAALUMN 


“INCLUDE NAHCHGR; J**x** SAVE STATE ***** / 
/* THIS PRIMITIVE WAS DESIGNED TO SAVE THE CURRENT STATE 
OF THE PROCESSOR ("PROCESSOR#") IN THE SAVEAREA FOR 
THE PRCCESS SPECIFIED BY "PINAME". UPCN COMPLETICN 
THE CURRENT PROCESS ¿OR THE SPECIFIED PROCESSOR IS 


SET TO ZERO. */ 


PRIMITIVE SAVESTATE: PROC (PINAME, PROCBSSOR#, ERPRM) 3 
ALNCLUDE HEGSIRS; 

AINCLUDE PCELCL; 

AINCLUDE CSDCI; 


ON CHECK (ERROR) 


BEGIN 
Ir {каков an 0) THEN DO; 
RPRM = ERROR; 
GO TO RETURN POINT; 
END; 
END; 
DCL (PINAME, , PROCESSOR#, ERPRM) FIXED BINARY(15); 
DCL ERROR FIXED muon INIT (0); 
DCL TEMPREG (10) FIXED BINARY(31); 
*** DISENABLE ALL INTERRUPTS k 
CALL PRIMITIVE INTERRUPT DISENABLER(ALL INT,SAVEINTS); 
* SAVE THE PAOCESSOR STATE IN PROCESS'S PCB */ 
TEMPREG = CPUREGS (PROCESSOR#,*); 
CALL FRIMITIVE PCBDATA(PINAME,0PUT,0STATE,TEMPREG, 
ERROR) ; 
*SET CURRENT PROCESS OF THE PROCESSOR TO ZERO*/ 


/ 
CURRENT_FROCESS (PROCESSOR#) 


SEY REENADLE CHE INTERRUPTS ***/ 
CALL PRIHITIVE_INTERRUPT_ENABLER (ALL_INT,SAVEINTS); 
SE oo ECINI: 


R 
END PRINITIVE SAVESTATE; 





MODULE SPECIFICATION 


NAHE: RESTORESTATE TYPE: PRIMITIVE 

PARANETEES 

BUE OUTPUT _ TYPE CONTENTS _ | __ 

P-Inéme integer Process internal nane. 

Processor Integer CPU allocated to the process. 
ELLOL Integer Returns error condition code. 


EXTEHNAL CALIS -AADE TO OTHER re 
O 





DE: C PARAMETLRIS e “2” T PURPOSES O — O. NEM ЧЕ 
Interrupt Interrupt Nunber, This moduie is invoked tc dis- 
Disabler Save Vector able all interrupts wnıle, 
Restorestate is in execution. 
Interrupt interrupt Number, This module is invoked to re- 
enabier Save Vector enable ail interrupts which 


were disabled by the current 
module in execution. 


PCBDATA Process I-Nane, This module is invoked tc set 
Put/Get Parameter, the CPU registers for the spe- 
Field Identifier, cıfıed processcr to the state 
Data Parameter, vector saved in the process's 
PITIOr parameter PCB. 


EXTERNAL CALIS MADE BY OTHER MODULES 
F 


m ir ee i m жо Y M — — e ay e e y l o экз шшщ -—  —— e Á aÁ a E E EE E ы ж ш шы]; шыш сыз эшш SEE, aman qam ee a a a ee шы › 


Scheduler Restore the state of a process which 
was blocked, preempted or just created. 


Interrupt Handler Restore the state of the ue preenp- 


ted by this module after the interrupt 
has been handled. 
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DATA STRUCTURES USED 


NAME — FIELD TYPE 78. 


ec, Set Si e, En e 


Saveiat Bit (1) 
Array 

CPUREGS Integer 
Matrix 


Item(i,j) Integer 


Current- Integer 
PLocess Array 


MODULE DESCRIPTION 


= 


N used to save the status 
of the interrupts; arguement 
in call to Disabler and 
Enabler. 


External structure represent- 
ing the CPU registers for each 
processor. 


Represents register 'j'! cn 
processor 'a'. 


External vector used tc iden- 
tify the process executing on 
processor !1' (Array Index). 


ee ees ei SS ee ee Se ee ee ee a ee ee “mm w as 


This Dn Ne was designed to set the registers of the spe- 
S 


cifie 


processor to the state vector savea in the process 


PC3 and to set current, process for the processor to the 


specified prccess. 
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=== —— x ee c — цш Eege 


AINCLUDE NANCHGR; /***** RESTORE STATE kda; 
y ta THIS PRIMITIVE WAS DESIGNED TO RESTORE THE REGI 
FOR THE PROTESS SPREIFIED EY PINASE FOR THE PRO 


MON 

EDI kri ka 

Our 
U 
© 
PO 


SPECIFIED BY PROCESSORS AND TO SET THE CURRENT CESS 
FOR THE PROCESSOR TO PINAME. * Z 
CHECK Eve 
RINITIVE_RESTORSSTATE: PROC (PINAME, PROCESSCH#, ERPRMH) ; 


AINCLUDE PCELCL; 
AINCLUDE CSDCL; 
AINCLUDE REGSTRS; 


ON CHECK (ERROR) 
BEGIN; 
IF (ERROR == DI THEN DO; 


RPRM = ERROR; 
GO TO RETURN_ POINT 


END; 
END; 
DEE SE Eee oars see ee) FIXED BINARY (15); 
PCL ERROR FIXED BINARY(15) INIT(O); 
DCL TEMPREG(10) ZIXED BINARY (31); 


AA FDS ENABLE ALL INTERRUPTIS. t27 
CALL PRIMITIVE, INTERRUPT DISENABLER(ALL INT,SAVEINTS); 


/* GET THE PROCESSOR STATE SAVED IN THE PROCESS'S . 
PCB 
CALL EFRINITIVE_PCBDATA (BINANE,OGET, OSTATE ,TEMPREG, 
ERROR) ; 


/% SET THE PROCESSOR REGISTERS AND UPDATE THE 
CURRENT PROCESS. */ 
CPUREGS (EROCESSOR#,*) = TEMPREG; 
CURRENT FROCESS(PROCESSORi) = PINAHE; 


/* REENABLE THE INTERRUPTS- x / 
CALL ERIMITIVE INTERRUPT ENABLER (ALL_INT,SAVEINTS) ; 


RETURN FCINT: 
BENDSERTNIEIVEERBSTORESTATE; 
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APPENDIX D: MODEL INITIALIZATION AND TEST PROGRAMS 


ZINCLUDE NAMCHGR; /***** HARDWARE DRIVER xk 
(CHECK (ERROR)): 


BERIVERB: PROC OPTIONS (HAIN) ; : 


7*' THE HARPWARE DRIVER IS USED TO SIMULATE THE PROCESSORS 
EAECUOL LINGS HE SCHEDULED PROCESSES; oF. LING INTERRUPTS 
AND INVOKING THE INTERRUPT HANDLER AFTER AN 
AFEROPEIATE TINE LAPSE AND PERFORMING OTHER FUNCTIONS 
OF THE HARDWARE. 4 


ON CHECK (ERROR) 
BEGIN; 


IF (ERROR ~= 9) Т 
PUT ln. PRINT) LISÈ (+BARDWARE DRIVER: ERROR= 
ie о 
(NCC ri F CK (h m 
BEGIN; ERRO Os. END: 


END; /* ERROR ON CONDITION */ 


ff e. 


NCLUDE RCELCL; 


Dit Qh Hes 


rU itr 
tree 
єк ЛГ яе м 


ataliadataTavacat 
HHHHHHHH 
4 s s == 
O 
t= 
= 
wy 
tri 


O 
bu 
tuj 
G) 
— 
nn 
NON EH 


CURRENT “ERGCESS О: 
CALL INITIALIZATION; 


CALL TESTER; 
DO FC REVER; 
PUT FILE(SYSPRINT) LIST("HARDNARE DRIVER - TOP') SKIP; 
/** EXECUTE ОПЕ "STEP" ON EACli PROCESSOR ¥**/ 
DO I - 1 $0 NUMBCPU; 
IF (CURRLNT PROCESS (I) == ui THEN DO; 


Zk SINE TUE IDENTIFICATION THE PROCESS BEING 
RUN x y 


CPROC n = CURRENT PROCESS (1) 5 
CINDX(I) = CPUKEGSTI, 1) 3 
/*** SET THE INSTRUCTION COUNTER РОВ SIMULATION */ 
IC =. CEUREGS (1,2); 
IF (CURRENT PROCESS (I) -< 0) THEN DO; 


( 

BEA 

PUT ea (oY: 
EX 


PP CINDX(I)); 
EUT FILE ( 


SPRINT) LIS ') SKIP; 
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** EXECUTE THE PROCESS  **/ 
LO ACTION OF CASE (CINDX (1)) ; 
SIUE CALL SUPERVISOR: ENDCASE; 
PUT PILE(SYSPRINT) LIST(' TERMINATOR - DUMYY!); 
/* CALL TERMINATOR; 
ENLCASE; 
CASE (3): 
PUT EILE(SYSPRINT) LIST ("INITIATOR - DUMMY'); 
/* CALL INITIATOR; * 
ENICASE; 
CASE (4)? CALL INPUT CONTROLLER: ENDCASE; 
CASE(5) : CALL OUTPUT CONTROLLER; ENDCASE; 
CASE (6) : CALL FILE MANAGER; ENDCASE: 
CASE ИН CALL OPERATOR SYSTEM COMHUNICATOR; 
| Ts 
CASE(8):' CALL FILE SPACE MANAGER; ENDCASE; 

END OF CASES; 

/% TCHECK TO SZE IF A PROCESS HAS ZEEN PREEKPTED. 
IF SO, SAVE THE CORRECT INSTRUCTION COUNTER FOR 
SIMULATION PURPOSES. */ 

IF {CEROC (I) 4- CURRENT PROCESS(I)) THEN DO; 

CREG(1) = CINDX(1); 

CREG 2} = ЇС 

CALL PRINI Tite. eye CAS ewe , OSTATE, CREG, 
Ok); 

END; 

ELSE 


/*** SAVE THE SIMULATION INSTRUCTION COUNTER | 
CPUREGS (1,2) = IC; | 


/* CHECK INTERRUPTS d 
TIMER < TIMER + 5; /% INCREMENT THE CLOCK #/ 


DO J = | TO NUMDINT: 
Leet IF THE TIME FOR AN INTERRUPT TO CCCUR 
BASSELAPSED THEN SET THE INTERRUPT AA 
TOT M & (TTIE (J) 2= TIHER)) THEN DO; 
INIRSET(I) = TRUL; 
J PUEV ME MSVYSPATNI)] LIST('LINTERRUPT',T,'SET')Yy: 
A 
A CALL INTERRUPT HANDLER; 
END; 
END, 
END; 


END; /* OF DO FOREVER */ 


STARTIO: ENTRY (INTERRUPTS) ; 
/**** THIS PROCEDURE SIMULATES STARTING AN I/C 
DEVICE - THE BASE TIME IS SAVED TO CHECK 
ELAPSED TIME TO SET THE INTERRUPT aK AC / 
DCL INTEhRUPT# FIXED BINARY (15), 
DEVTINE(16) FIXED BINARY (15) STATIC INIT((16)50); 
/# DEVTAME IS THE AVERAGE LENGTH OF TIME $053 RED 
FOR A DEVICE TO PERFORM ITS FUNCTICH */ 
ILINE (INTERNUPIH) = TIMER * DEVTIME(INTERRUPT4); 
d : 
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: ОС 
** THIS PROCEDURE IS USED TUI SERSTOLRSSISTEN STATE 
NOR TESOL PURPOSES. 
vee ieee IS USED TO ENABLE PRINT STATMENTS IN 
pee IED FROCEDURES. ED 
DCL TRACE BIT(1) EXTERNAL; 
TRACE = TRUE; 


ALNCLUDE REQRELD; 
DCL 


TEST MSGS (3) , CHAR (8) INIT ('IPDEV1 *, 
'OPDEV1 e"FOPDEVI '); 
/*** RELEASE MESSAGES TO CREATE DEVICES FOR THE 
INPUT CONTROLLER, OUTPUT CONTROLLER AND THE 
FILE MANAGER. | kk ky 
ALLOCATE MESSAGE BUrFER SET(MESSAGE); 
NSG SFMAFHORZ, FIELD2,FIELD3, FIELD4,FIELDS,FIELD6 = 0; 
CHAR. FIELL1,CnAR FISLD2,CHAR FIELD3,CHAR FIELDU = tt; 
ANSWER REQUEST = FALSE; 
EDELEN = SSICL: 
K = 4; 
DO X 51 TO 3; ЖЕҢ 
ALLCCA1E INPUT BUFFER SET(IBUFPTR); 
BUFFER LOCATION = IBUFPTR; 
TE (IS3T THEN INPUT BUFFER = 'D0ADD "LI TEST MSGS (I); 
ELSE INEUT BUFFER = eh il. MSGS (3) [T 
= 5 
ay GATE ERINITIVE RELEASE(K,SINPUT,MESSAGE,ERROR); 
END TESTER; 


ENDGBSERIVER; 
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/*** INITIALIZE INTERFACE VARIABLES ***/ 


= 0; 


ANYPROC 
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/*** INITIALIZE LIMIT VARIABLES ***/ 


PCB LIM = 50; 

ALL INT = 0: 

NUMEINT = 16; 

NUMBCEU = 4; 

DEV L LIMIT = 101; 

DEV UT LIMIT = 110: 

FILE L LIMIT = 51; 

FILETU LIMIT =100 : 

PCT LIMIT = 111; 

PCT U LIMIT < 120; 

SEM LOLIMIT < 1; 

SEM LIMI1<- 50; 

CPUREGS = 0; 

INTRUET = YÓ! B; 

INIRSET = '0'B; 

DCL STATE(10) FIXED BINARY(31); 

DCL SYS PROC EIT(1) JEXT NAM CHAR (8) 3 

DCL (FATHER, BROTHER, PRI, CYCLE, 1NANE,LASTEROC) 
FIXED BINARY; 

DCL SYSPROCESS (8) FIXED BINARY; 

DCL ACCESS (120) BIT (2) INET ( (120) (1) #0483) ; 

DCL CWNzE FIXED BINARY, DUMMYFB FIXED BINARY INIT(0), 
DUMMYB1 BIT (N); 

DCL DUMMYCHAR CHAR(8) INIT((8)''); 

DCL NULLETR POINTER: 

DCL MSG INIT POINTER; 

/* INITIALIZE A MESSAGE BUFFER  */ 

ALLOCATE MESSAGE EUFFER SET (MESSAGE); 

HSG INIT = MESSASE; 

FIELD1,FIELD2,FIELD3, FIELD4, FIELDS ,FIEID6 = 0; 

CHAR FIELD1,CHAR_FIELD2,CHAR FIELD3,CHAR_FIELDY = ti; 

RELEASOR < 0: 

MSG SEHAEHORE = 0; 

ANSWER REQUEST = FALSE; 

BUFFER LCCATION = NULL; 


/*** CREATE PCB FOR ERROR HANDLER ***/ 
CALL ECBINIT; 


nu T IHITIAL SYSTEM STATE ***/ 


SYS EROCESSOR ,PROCESSOR 
CURKENT CÉROSCESS(SYS. PROCESSOR), SYSPROCESS(1) = 1; 
/*** ADD CODE FOR PAGE TABLE INITIALIZATION ***/ 
wem /*** SET STATE FOR THE ERROR HANLLER **x/ 
even ERINITIVE_PCBDATA (INAME,@PUT, @PE_WR,SYS_PROCESSOR, 
STATE = 0: 
STATE(1) 2 1; 
STATE 1: 
CALL FAIMITIVE PCBDATA(INAME,OPUT, OSTATE,STATE,ERRCR) ; 
/%% INITIALIZE MESSAGE BUFFER FOR ERROR HANDLER **/ 
ALLOCATE MESSAGE BUFFER SET (MESSAGE) ; 
MESSAGE USARAMESSAGE BÜUPFER = NSG INIT -> MESSAGE BUFFER: 
CALL £RIMITIVE PCBDATA(INAME,gPUT,GASGPTR,HESSAGE, 
ERROR) ; 
/** INITIALIZE RESOURCE VECTOR FOR ERROR HANLLER **/ 
CALL ERIMITIVE PCDDATA(INAML,GPUT,ORESVEC, 
SPü L LIMIT,PCT U LIHIT,ACCESS,ERROE); 
ACCESS = '00'B: S 
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ALIZE A PCB FOR THE TERHINATOR */ 


/* INITI 
SYS EROC = TRUE; 
FATHER = 1; 
BROTHER = Ó; 
ae Ph, 
EXT NAM = 'TERMINTR'; 
CALL GETPCB (FATHER, SMOTHER, 2X7 _ NAM,PRI,SYS PROC,STATE, 
INANE,CYCLE,ERROR); 
STATE (2) = In 
CALL ExIMITIVE -PCBDATA (INANE d ,OPUT, OSTATUS,ODREDYA, 
CALL ERIMITIVE EDDA. Pur, STATE, STATE, ERRCR); 
CALL ERINITIVE PCBDATA INANE, 4 aPUT, PE NR,SYS “PROCESSOR, 
R 
ALLOCATE NESSAGE BUFFER SET( BSSAGE) ; 
MESSAGE -> MESSAGE BUFFER = (ise INIT -> MESSAGE BUFFER; 
CALL ERIMITIVE PCSDATA (INANE, DPUT, , @4SGPLR,MESSAGE, 
h 
FATHER,SYSPROCESS (2) = INAME; ` 
xxx INITIALIZE PCB'S FOR SYSTEM PROCESSES ***/ 
DO I = 1°70 6; 
DO ACTION OF CASE(I); 
CASE |: /* INITIATOR */ 
EXT NAM = 'INITATOR'; 
ENECASE; > 
Rn ' -+ 
CASE (2) : /* INPUT ae k / 
EXT NAM < 'INCONTRL' 
ENIČASE; O? 
CASE (3) : /* OULPUT CONTROLLER */ 
EXT NAM’ = 'OUTCHTRL!; 
ИШ 
!LCASE; 
CASE (4) : /* FILE MANAGER */ 
EXT NAM = 'FILEMNGR'; 
ENICASE; > 
‚N SE? 
CASE (5): /* OPERATOR SYSTEM COMMUNICATOR */ 
EXT NAM = 'OP COMM!'; 
ENECASE Noč 
CASE (6) : /* FILE SPACE MANAGER */ 
EXT Ma z 'SPACEMAN'; 
PRI < 45; 
BROTHER = 0; 
FATHER = SYSEROCESS (6); 
ib OF CASES 
El F A19. 5 : 
CALL GETPCB (FATHER, BROTHER, EXT NAM ,PKI,SYS PROC,STATE 
,LWAME, CYCLE, ERROR) 3 
IF TRACE THEN PUT FILE (SYSPRIN?) : | 
CASE INDEX Z',I, INANE -',INAME) SKIP; 
CTHER = d S 
CALL — Eng, or: NR,SYS PROCESSOR 
Oh), 
ALLOCATE MESSAGE BUFPER SET(MEŠSAGE); 
MESSAGE->MESSAGE BUFFER = USG INIT->MESSAGE BUFFER; 
CALL PRIMITIVE LPCSDAPA (LNA AE/GPUT, ONSGHTR MESSAGE, 
STATE (2) = 24 23 eeh 
CALL PRIMITIVE PCBDATA (INAME,OPUT,OSTATE,STATE,ERRGR) ; 
CALL PRINITIVE_PCHDATA M OPUS TATUS JU REDYA, 
ERROR): 
SYSPROCESS(I*2) = INAME; 
IF ((I>1 (Me A THEN 
CALL BRENTZIVE PCUDATA (UAGEPROC, ,QPUT,OLFTSIP,INAME 
1 4 ' 
LASTPROC = INAME; 
END: 





/* CCNNECT LINEAGE OP SYSTEM PROCESSES */ 

FATHER = SYSPROCESS (2); 

LASTEROC = SISPROCZSS() Li 

CALL PRIMITIVE -PC5DAT a (ehTHER, DPUT ,OCHILD,LASTPROC, 
/* CCNNECT FILE SPACE MANAGER" TO FILE MANAGER */ 
FATHER = SYSPROCESS Mi 

LASTEBOC = SYSPROCESS (8 Li 

CALL ERIMITIVE PCBDATA( nn. , OPUT,OCHILD,LASTPROC, 


ERROR 
/* SET UE SEMAPHORES */ 
DO I = 1 TO 19; 
DO ACTION_OE CASE(1) ¡ 
CASE(1): EXT NAM = !ENDJOB:; | 
We d OWNER = SYSPROCESS (2) ; /* TERMINATOR */ 
CASE; 
CASE(2): EXT NAM - 'ERROR!; | 
Mo OWNER - SYSPROCESS(1); /* ERROR HANDLER */ 
CASE; 
CASE (3): EXT NAM = "PFILEOP'; 
EN OWNER - SYSPROCESS(6); /* FILE MANAGER */ 
CASE (4): EXT NAM = 'INAME'; 
Ben OWNER = SYSPROCESS(3); /* INITIATOR */ 
CASE (5): EXT NAM = "INPUT 
E OWNER = SYSEROCESS (41) ;/* INPUT CONTACILER%/ 
SE; 
CASE (6): EXT NAM = 'JOBOSP'; 
SE OWNER = SYSPROCESS(4) ;/* INPUT CONTROILER*/ 
NICASE; 
CASE (7): EXT NAM = "NEWJOB'; 
enveasp OH NER = SYSPROCES5 (3) ; /* INITIATOR *y 
CASE (8): EXT NAM » 'OPR IO'; — 
er ORNER - SYSPROCESS(7);/* CP COMi*/ 
NECASE s 
CASE (9): EXT NAM = ‘OUTPUT'; 
MM. OWNER = SYSPROCESS(5) ;/*OUTEUT CONTROLLER*/ 
ri 
CASE(10): EXT NAM - 'REDYAQUE!; 
de d CHNER = SYSPROCESS (1); 
CASE(11): EXT NAM = 'IBUFFER'; 
EE OWNER = SYSPROCESS (1); 
CASE (12) 3 EXT NAN = 'INTDEV'; 
a MINE OWNER = SYSPROCESS (1); 
po 
CASE(13): EXT NAM - 'OBUFFER'; 
E c OWNER - SYSPROCESS (1) ; 
E; 
CASE(14): EXT_NAM = 'PUTOUT' 
Pc. CWNER = SYSEROCESS (5) ; 
; ; 
CASE(15): EXT NAM = 'WAIT' 
GE OWNER = SYSEROCESS (1) ; 
CASE (16) : EXT NAM = 'INTERRPT!; 
T. CHNER = SYSPROCESS (1) ; 
L; 
CASE (17) : EZT NAM = 'INTDEV' 
s OWNER = SYSEHOCESS (1) 
CASE(18): EXT NAM = 'SPACE!; 
ee. CANER z SYSPROCESS (8) : 
CASE (19) 2 EXT NAM = 'PRINTO!: 
Men OHNEK < SYSPROCESS (2); 
ENC OF CASES: 
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O rz tj 
O tri Z 


tr 


CALL CREATE RCB(&SEMFOR, EXT NAM, OWNER, CUMMYTB, Je YEB, 


UMM 
FE, 





DUMHYCHAR, DUMMYFB, DUMMYFB, DUNE 
INAME, ERROR 
IF TRACE THEN PUT FILE (SYSPE INT) LIST( 
(CASE INDEX -',I,'INAME -',INAHE) SRIP; 
WH = FRÁCCES; 
DO ACTION OF CASE(I); 
ASE(1): SENDJOB- LNAHE; ENDCASE; 
ASE (2): SERROR = INAME: ENDCASE; 
ASE (3): $FILEOP - INAME; ENDCASE; 
ASE (4): $INANE = INAME; 
NULLPTR = NULL: 
DO J = 1 TO 30; /* 30 USER JOBS MAXIMUM */ 
CALL PRIMITIVE RELEASE (ANYPROC, $INAME, 
NULIPTR, ERROR) ; 
END; 
ENDCASE; 
CASES): -SINPUT = INAME;  ENDCASE; 
CASE TG : $SJOBOSP s INAHE; ENDCASE: 
CASE(7): &NEWJOB 9 INANE; ENDCASE; 
CASE (8 : $OPR IO < INAME: ENDCASE: 
CASE (9) : SOUTPUT = INAME; ENDCASE; 
CASE (10): #REDYA = INAME: ENDCASE; 
CASE (11 ? SIBUFF= INAME;  ENDCASE; 
CASE (12): SINTDEV = INAME; ENICASE; 
CASE (13) : SOEUFF= INAME;  ENDCASE; 
CASE (14 + SPUTOUT = INAME;  ENDCASE; 
CASE (15) : SWAIT = INAME; ENDCASE; 
CASE (16) : SINTRPT = INAME; ENDCASE 
CASE (17) : SINTDEV = INAME: ENDCASE 
CASE (18): $SPACE - INAHE; ENDCASE; 
CASE (19 : $PRINTQY = INAME; ENDCASE; 
ENC OF CASES; 
ESSAGE =, NSG_INIT; 
i - р : 
INANE >= P YSEROCESS (3) ; 
CALL PRIMITIVE PCBDATA (INANE, @EUT, @RESVEC, 
SEN L LiMIT,PCT U’ LIAIT, ACCESS, ERROR 
CALL PRIMITIVE PCBDATA (1,GET, OPRIRTY,2RI, ERROR 
CALL RCBPUTQ(#REDYA, #0S,I,DUMHNYFB, PRI, NULLPTE, 
DUMMYFB, EKPOR) 5 
LO J = 1 TO 2; 
ALLOCATE OUTPUT BUFFER SET (CBUFETR) ; 
BUFFER LOCATION = OBUFPTR; 
CALL PHIHITIVZ .RELEASE(INAaE, SOBUFF, ‚MESSAGE, 
ALLOCATE INPUT BUFEER SET(IBUFPTR); 
BUFFER LOCATION = IEŬFPTR; 
CALL PRIMITIVE. RELEASE (INAME,SIBUFF,MESSAGE, 
ERROR); 
ENDS 


E MESSAGE -> MESSAGE_EUFFER; 
RENT PROCESS = O: 

L PNINITIVE SCHEDULER: 
TALIZATION; 
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k HF MW B H zz zz SA zz zz zz zk zz zk * K 0X 0k * k 
PREPRCCESSOR SIMULATION MACRO, USED TO INCLUDE THE 
INDICES AND PRINT OUTPUT MESSAGES FORK SIMULATION. 


"ENAELED" BY ZINCLUDE SIMULTR; SÉ 


%DCL SIM START ENTRY(CHAR) RETURNS (CHAR); 
SDCI SIN” INTERRUPT PT ENTRY RETURNS (CHAR); 
%DCL aSIMET FIXED;T 

RDCL SIM END CHAR; 


kÒSINPT = 1; 

ASIM_END DCL SULPE (SSTHPT) LABEL; IC = 1; 
SIMEND: RETURN;' 

XSIM START: EROC(@SIMNAM) RETURNS (CHAR); 


DCL (GSIHHAM,QSIMRET) CHA 


HAR; 
GSIMRET - 'DCL IC FIXED BINARY EXTERNAL; 
PUT FILE(SYSPRINT) LIST(''ENTERING'!,!! ' 
([OSIMNAN ||! '","'IC<'',IC); GO TO ŠMLPI(IC) 
SMLPT(1): ;' ; 


RETURN (@SIMRET) ; 
ND; 


ASIM_INTERRUET_PT: PROC RETURNS (CHAR) ; 
OSINPI F OSINnEer tI; 


SEND RETURN (* IC - 3SIHPT; GOTO SINEND SHNLET (OSTHPT) 3: 30); 
END, 
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